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.REM, 

IDENTIFICATION 

PROOUCT ID; AC-T718AMC 

PRODUCT TITLE: C2TSBA0 TSU05 DIAG PART ? 

DEPARTMENT: COMPUTER SPECIAL SYSTEMS/PPG 

DATE: JUNE 06. 1963 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 



NO RESPONSIBILITY IS ASSUMED FOR THE USE OR 
SOFTUARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
AFFILIATED COMPANIES. 



RELIABILITY Of 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM A8STRACT 

THIS IS A PDP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OT A TSU05 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM 
(UNI3US). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 
ON CERTAIN FUNCTIONS. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
'.HIS PROGRAM CAN BE USED WITH XXDP», ACT, APT, SLIDE ANO PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDP-11 PROCESSOR ANO MEMORY 

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE ANO 4K RESERVED FOR 1/0 PAGE) 
TSU05 MAGTAPE SUBSYSTEM (DRIVE ANO CONTROLLER) 

CONSOLE TERMINAL 
PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER /MONITOR (XXDPO 

1.3 RELATED DOCUMENTS ANO STANDARDS 

DIGITAL EQUIPMENT CORPORATION DOCUMENTS; 

1, CHQUS XXDP» USERS GUIDE | DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1980. 

2. TSU05 TRANSPORT SUBSYSTEM USER'S GUIDE i DOCUMENT NUMBER EK-TSUOVUG-001 
DATE: AUGUST 1982 

3. TSU05 TRANSPORT SUBSYSTEM TECHNICAL MANUAL: DOCUMENT NUMBER EK - TSU05- TM-001 
DATE: AUGUST 1982 

4. TSU05 TRANSPORT SUBSYSTEM INSTALL AVION MANUAL: DOCUMENT NUMBER EK-TSUQ5-JN-Q01 
DATE: AUGUST 1982 



1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP-11 CENTRAL PROCESSOR ANO MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDPO 

1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNOER TEST IS AS5UHED TO WORK 

PROPERLY OR TALSE ERRORS CAN BF REPORTED. 

THE TAPE BEING USED ON THE TS05 TRANSPORT IS A KNOWN GOOD REEL 

OF TAPE, 

CZTSAA HAS RUN SUCESSFULLY . 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION Of THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 

2.1 COMMANOS 

THERE ARE ELEVEN LEGAL COMMANDS FOP THE DIAGNOSTIC RUNTIME SERVICES 

(SUPERVISOR). THIS SECTION LISTS THE COMMANDS ANO GIVES A VERY I 

BRIEF DESCRIPTION OF THEM, THE XXDP* USER'S MANUAL HAS MORE DETAILS, j 

COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tc) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP* MONITOR (XXOP* OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE AC i TVE AT START TIME 

DROT DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2,3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE "STA" INSTEAD OF "START", 

2.1.1 OPERATOR COMMANDS 



THE TSU05 DIAGNOSTIC IS A PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 

CHQUS XXDP* USERS GUIDE .DOCUMENT NUMBER AC-F34QE-MC* THE USER ENTRY IS LH QUOTES. 

BOOT THE DIAGNOSTIC MEDIA 

.R VTSB?? 

01 AG. RUN -TIME SERVICES REV Q* APR 79 

CZTSB-A-Q 



Fl 

USER DOCUMENTATXQN MACRO M1113 Ol-FEB-84 17:02 SEQ 005 

****TSU05 LOGIC DIAGNOSTIC**** 

UNIT IS TSU05 

>DR 

2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION, 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 
IN THE DESCRIPTIONS BELOW. A DECIMAL NUMBER IS DESIGNATED BY "DOODD". 

SWITCH EFFECT 



/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 

THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS: I : 5: 7- 10, 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. AU OTHER TESTS WILL NOT BE RUN. 

/PASS:DDDDD EXECUTE DODDD PASSES (DODDD • 1 TO 64000) 

/FLAGS:FLGS SET SPECIFIEO FLAGS. FLAGS ARE DESCRIBED 

IN SECTION 2,3. 

/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 

DDDDD PASSES ONLY. (DODDD - 1 fO 64000) 

/UNITS xLIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5: 10- 12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS - 0-63) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1 -5/PASS: 1000/EOP: 100 

THE EFFECT OF THIS COMMAND WILL BE: I) TF5T"> 1 THROUGH 5 WILL BE 
EXECUTED. 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER t .*!?''* 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIR»;: HRfcl. CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE "/TES:l-5" INSTEAD LV "/ ftSTSs 1 -5 M . 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCi ■: V» PAN tfE USED BY EACH 
COMMANO. 



TESTS 


PASS 


FLAGS 


tOP 


Lt* X '■ S 


START X 


X 


X 


X 


X 


RESTART X 


X 


X 


X 


X 


CONTINUE 


X 


X 


X 




PROCEED 




X 






DROP 








X 


ADO 








X 


PRINT 










DISPLAY 








X 


FLAGS 










ZFLAGS 










EXIT 











2,3 FLAGS 
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FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNIIL EXPLXCITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COttriANO UNLESS SET USING THE 
FLAG SWITCH, THE ZFLAGS COMMAND MAY Ai SO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF ^HE SI AST AND ZFLAGS COMMANDS, 
NO COMMANOS AFFECT THE STATE OF T(€ FLAGSi THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST -LAG SWITCH. 

FLAG EFFECT 



» ">E HALT ON f-RROR - CONTROL IS RETURNED TO 

Rl^TIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERMOR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

C RI DIRECT MESSAGES TO LINE PRIMER 

J NT PRINT TEST NUMBER AS TEST EXECUTES 

BOE ''BELL" ON ERROR 

L'AM UNATTENDED MOOE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

♦ERROR MESSAGES ARE OESCRIBED IN SECTION 3.1 

SEE THL XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS, YOU MAY 

'SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE. 

TO CAloE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERRO« REPORTS 

AND i'YPE A "BELL" ON -RF"OR, YOU MAY USE THE FOLLOWING STRING} 

/FLAGS:LOE:IER:tlOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE FORMATION BY TYPING "CHANGE HW (L) ?" 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDUARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP* USER'S MANUAL). WHEN YOU ANSWER THIS 
QLtSTION WITH A "Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 
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ON A "H" (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 

RUN USING THE DEFAULT VALUt.S FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE 

TSBA/TSD8 - 172520, VECTOR - 224 

ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VAUIF THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INOICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "CD" INDICATES THAT A LOGICAL RESPONSE IS TO BE MACE: 
"Y" FOR YES, "N" FOR NO. 



UNITS CD) ? 



UNIT 



<ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED* 



DEVICE ADDRESS 



VECTOR (0) 224 ? 



(0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER* 

<ENTER ADDRESS OF INTERRUPT 
VECTOR* 



THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER Qf 
UNITS (CONTROLLERS) SPECIFIED IN THE "« UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOP TESTTNG AS FOLLOWS: 
UP TO 4 TSU05 CONTROLLERS PER 11 AND UP TO 2 DRIVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?" 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER BY TYPING 

"Y'\ THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH S). 

THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 



CHANGE SW (L) 



? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED* 



INHIBIT ITERATIONS (L) N ? 



<T1PE "Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLT AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.* 
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2.6 EXTENDED P-TABLE DIALOGUE 

WHEN YOU ANSWER THE HARDWARE Ql*5TIUNS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESfRICCS IHE DEVICES UNOER TEST. THE SIMPLEST 
WAY TO RUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
Ui;il TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A f.ORE EFFICIENT METHOO, SUPPOSE YOU ARE TESTING 
A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS CSU6 -iiE VICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q -FACTOR, THIS 0-FACTOP MAY BE OR 1 . BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 

Q WITS CD) ? 8<CR> 

WIT 1 

CSR ADDRESS CO) ? 160OO0<CR> 
SUB-DEVICE * (0) ? 0<CR> 
Q-FACTOR CO) ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ CO) ? 1<CR> 
Q-FACTOR CO) 1 ? 0<CR> 

UNIT 3 

CSR ADDRESS CO) ? 160OOC<CR> 
SUB-DEVICE (' r ) 7 2<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 4 

CSR ADORESS CO) ? 160000<CR> 
SL«-DEVICE 9 CO) 7 3*CR> 
Q-FACTOR CO) ? <CR> 

UNIT * 

Zd« ADDRESS CO) ? 160000<CR> 
SUB-DEVICE « CO) 7 4<CR> 
Q-FACTOR CO) ? <CR> 

WIT 6 

CSR ADDRESS CO) ? 160000<CR> 
SUB DEVICE (0) 7 5<CR> 
Q-FACTOR CO) ? <CR> 

WIT 7 

C< 7 ADDRESS CO) 7 1€0000<CR> 
SUB-DEVICE > CO) ? 6<CR> 
Q-FACTOR CO) ? 1<CR> 

WIT 8 

CSR ADQKL5S CO) i6Q0QO«CK> 
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SUB-DEVICE * (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN, BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT, THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE, 

* UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 0,1<CR> 
Q-FACTOR (0) ? 1.0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 2-5<CR> 
Q-FACTOR (0) ? 0<CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE * (0) ? 6.7<CR> 
Q-FACTOR CO) ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES ANO Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOTB PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. C IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES ANO Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 ANO RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHCWN BELOW. 

* UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS CO) ? 160000<CR> 
SUb-DEVIQE CQ) ? 0-7<CR> 
Q-FACTQR (0) Q ? 0,1»0,,„1»1<CR> 



Kl 

USER DOCUMENTATION MACRO M1113 01-FEB-64 17?02 SEQ 010 

AS YOU CAN SEE FROM THIS FXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 

2.7 QUICK START-UP PROCEDURE CXXDPO 

TO START-UP THIS PROGRAM; 

1. BOOT XXDH* 

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ C IF THERE 
IS A CLOCK) QUESTIONS 

3. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS ANO SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2,3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED By 
A DIAGNOSTIC: GENERAL. BASIC ANO EXTENOEO. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED WLESS THE "IER" FLAG IS SET (SECTION 2.3). 
THE GENERAL RRROR MESSAGE IS OF THf FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

, WHERE j NAME - DIAGNOSTIC NAME 

TYPE • ERROR TYPE (SYS FATAL. DEV FATAL. HARD OR SOFT'J 

NUMBER - ERROR NUMBER 

UNIT NUMBER - - N (N IS LAST UNIT IN PTABLE) 

TST N1J1BER ■ TEST AND SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAJ DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER". "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 
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3,2 SPECIFIC ERROR MESSAGES 

BELOW ARE SAMPLE ERROR MESSAGES. ^ACH fc&ROR MESSAGE 
OF ERRORS OETECTEO BY THIS DIAGNOSTIC. 



REPRESENTS DIFFERENT TYPES 



ERROR MESSAGE EXAMPLE 1 

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC, THE FIRST PART DEFINES ^HE TEST FUNCTION AND UNIT THAT FAILED 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD -APT IS THE EXPECTED AND RECEIVED 
DATA. 



TST: 016 FIFO EXERCISER TEST 

CZTSB HRD ERR 01610 ON UNIT 00 TST 016 SU6 002 PC; 040624 

FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 

TAPE BUS SIGNALS IN WORD 08: - DESIGNATOR <BIT P> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <8> IONL<S> IFBY<1> 
IRE3V1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 

TAPE BUS SIGINALS IN WORD 09: 
DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 
MESSAGE BUFFER ADDRESS - 047352 
MESSAGE BUFFER CONTENTS: 
WORD 00 EXPO: 100020 RECVs 

RECV: 
RECV: 
RECV: 
RECV: 



WORD #1 EXPO: 
WORD 02 EXPO: 
WORD 03 EXPO: 
WORD PA EXPD: 
WORD #5 EXPD: 
WORD 06 EXPD: 
WORD PI EXPD: 
WORD 08 EXPD: 
WORD 09 EXPD: 



000012 
000000 
000010 
000000 
000000 
000000 
OOOOOO 
070217 
000074 



100020 XOR; OOOOOO 

0000 V! XOR: OOOOOO 

OOOOOO XOR: OOOOOO 

000010 XOR: OOOOOO 

OOOOOO XOR: OOOOOO 

RECV: OOOOOO XOR: OOOOOO 

P*"JV: OOOOOO XOR: OOOOOO 

n£CV: OOOOOO > R: OOOOOO 

RECV: 070217 XUR: OOOOOO 

RECV: 000034 XOR: 000040 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FLECTION ERROR FROM THE TAPE DRIVE, IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 

CZTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR - 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE 

PACKET ADDRESS - 026420 

PACKET WORD P - 140010 

PACKET WORD P ■ 000010 

PACKET WORD P * OOOOOO 

PACKET WORD P -* 000024 



UNRECOVERABLE ERROR 
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ERROR MESSAGE EXAMPLE 3 

THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE EM1BLE0. 

C.'TSB HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWINO (EXTENDED FEATURES MODE) 
EXPO; 000312 RECVj 000112 XOR: 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCC THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2,2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (PDP-11) 

DR>STA/FLA:PNTjHOE:UAM 

UNITS CD) ? 1 

UNIT 

DEVICE ADDRESS (0) 172520 ? <CR> 

VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC, THE COMMAND HAS THREE 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" . "HALT ON 
ERROR" AND "RUN IN UNATTENDED MODE' 1 . 

NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST, 

TST: 001 INITIALIZE *3 T EST 

TST: U02 BASIC WRITE SUBSYSTEM MEMORY TEST 

TST: 003 DMA MEMORY ADDRESSING TEST 

TST: 004 RAM EXERCISER TEST 

TST: 005 FIFO EXERCISER TEST 

TST: 006 STATIC TRANSPORT BUS CHECK 

TST: 007 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 

TST: 008 READ/WRITE DATA PARITY CHECK TEST 

TST: 009 MISCELLANEOUS LOGIC CHECKS TEST 

TST: 010 STANO-ALONE MANUAL INTERVENTION NOT EXECUTED TEST 

TST: Oil STAND-ALONE CONFIGURATION ! YPEOUT NOT EXECUTED TEST 

TST: 012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 
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ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINU. ->LY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW .THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11 
PROCESSOR WITH A LA-34 CONSOLE. 

THE PROGRAM RUNS IN TWO MGDESj NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE. WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" CYES). 

TEST 

NUMBER 
1 
2 
3 
4 
S 

6 
7 
B 
9 

THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 

Q.V. ?. MINS 19 SECONDS 
DEFAULT 11 MINS 35 SECONDS 

5,0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED, VIA TMt STACRT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P- TABLES PARAMETER 
CHANGES: 

CHANGE HU (L) ? 

UNITS tD) V <ENTER THE NUMBER OF M7455 CONTROLLERS 

PPF.3ENT TO BE TESTED* 

UNIT 

DEVICE 4DDRESS (0) 172520 ? <ENTER I HE ADDRESS OF THE 

TSBA/TSDF REGISTER> 

VECTOR (0) 2c*> ? <ENTER ADDRESS OF INTERRUP' 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH UF" THE NUMBER Or 



N/I 


ITER 


DEF 


ECS. 


SECS 


SECS 


15 


50 


35 


1 


6 


5 


1 


1 





110 


540 


430 


1 


10 


9 


10 


120 


110 


1 


3 


2 


15 


15 


12 


17 


17 


13 
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UNITS (CONTROLLERS) SPECIFIED IN THE "0 UNITS?" QUESTION, LOGICAL UNIT 
NU«ERS ARE ASSIGNED IN ORDER, BEGINNING AT 0, UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 



IN AODITION. ON A START, RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
FOLLOWS} 



CHANGE SW CD ? 



6.0 TEST SUMMARIES 

TEST 1{ INITIALIZE AFTER WRITE CHARACTERISTICS 

TEST DESCRIPTION: 

THIS TEST VERIFIES THAT A HARDWARE INITIALIZE COMMAND 

INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS UP 

THE COMMAND. MESSAGE AND CHARACTERISTIC IMAGE BLOCKS 
IN THE CONTROLLER RAM CORRECTLY. 

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 

THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMANO WITH A 
BSELO SELECT COOE OF (NO-OP) EXECUTES CORRECTLY. IT ALSO 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
MODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
COMMAND DECOOING AND HANOLING SEQUENCES, 

TEST 3s DMA MEMORY ADDRESSING 

THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS AND 
ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIEO BY THE 
DIAGNOSTIC AND D: AGNOSTIC SUPERVISOR COOE) FOR BOTH READING (DAT I) 
AND WRITING (DATC). VERIFIED ARE THE LSI -11 BUS DRIVERS FOR ALL 
AVAILABLE ADDRESS LINcS. UP TO THIS POINT ONLY 16 BITS HAVE BEEN 
USED FOR DMA TRANSFERS, 

CAUTION 

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADORESS LINES 
ARE ONLY CHECKED WHEN RUNNING ON A 1 IB SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 



1*4****4**********************4************ 



TEST 4 i RAM EXERCISER TEST 



nnrm ■ i . . ~ _i^. „ ™.— tj 
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THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 

TEST 5j EXTENDED FEATURES SWITCH AND TIMERS A,B 
TEST DESCRIPTION: 

THIS TEST VERIFIES THE INVERT EXTENOED FEATURES FUNCTION 
CAN LOGICALLY INVERT THE EXTENOED FEATURES SWITCH AND 
THAT THE INTERNAL TIMERS A AND B OPERATE CORRECTLY. 

TEST 6: FIFO EXERCISER 

TEST DESCRIPTION: 

THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
VERIFY THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND 
CONTROL LOGIC. 

TEST 7- STATIC TRANSPORT BUS INTERFACE TEST 

TEST DESCRIPTION: 

WRITE TO TSSR REGISTER TO SOFT INITIALIZE THE CONTROLLER 

DO WRITE CHARACTERISTICS TO CHECK FOR EXTENDED FEATURES SWITCH 

IF EXTENOED FEATURES HARDWARE SWITCH CLEAR THEN? 

DO WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENDED FEATURES 
DO WRITE CHARACTERISTICS TO SELECT RESERVED UNIT 7 
DO A WRITE SUBSYSTEM READ STATUS 
IF ANY TRANSPORT INTERFACE SIGNALS ARE ASSERTED THEN PRINT ERROR 



TEST 8; TRANSPORT BUS INTERFACE LOOPBACK TEST 

TEST DESCRIPTION: 

THIS TEST VERIFIES THE CONTROLLER'S TRANSPORT BUS 
DRIVERS. RECEIVERS. AND SIGNAL LOOPBACK LOGIC. NOTE 
THAT THE STAVIC TRANSPORT BUS TEST MUST HAVE RUN 
CORRECTLY FOR THIS TEST TO PROVIDE MEANINGFUL RESULTS, 

TEST 9t READ/WRITE DATA PARITY TEST 

TEST DESCRIPTION: 

THIS TEST VERIFIES THAT THE WRITE LATA PARITY GENERATOR 
ANO THE READ OATA PARITY CHECKER OPERATE PROPERL> . THE 
TRANSPORT BUS SIGNAL LOOPBACK MOOE IS ENABLED AND A 
SET WRONG PARITY FUNCTION IS EXECUTED. THEN VARIOUS 
WRITE SUBSYSTEM MEMORY FUNCTIONS ARE PERFORMED TO 
WRITE DATA TO ANO FROM THE FIFO IN LOOPBACK MODE. 
THE PROGRAM THEN CHECKS TO INSURE A READ DATA PARITY 
ERROR OCCURRED. 
A R&S&T FIFO IS DONE AND THE READ QPTA PARITY 
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ERROR BIT IS AGAIN TESTED TO INSURE IT CLEARED, 
FINALLY A CLEAR WRONG PARITY FUNCTION IS DONE 
AND IT IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK 
MODE WITHOUT SETTING READ DATA PARITY ERROR, 

TEST 10t MANUAL INTERVENTION 

THE MANUAL INTERVENTION TEST IS f. STANDALONE ROUTINE (NOT REALLY A "TEST") 
THAT ALi_OWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS ANO FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE ANO RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 6, 
SELECTION CODES AND SUBROUTINES ARE: 

CODE ROUTINE 

HELP. PRINTS THIS MENU. 

1 TURN ON ALL M7455 LED INDICATORS 

2 TURN OFF ALL M74S5 LED INDICATORS 

3 OFFLINE /ONLINE ATTENTION TEST 

4 WRITE-PR01ECT TEST 

5 PRINT EXTENDED TRANSPORT STATUS 

6 EXIT (RETURN TO SUPERVISOR) 

TEST Hi CONFIGURATION TYPEOUT 

THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION (F THE M7455 MOOULE ANO TSU05 SUBSYSTEM, SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7455: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED), 

2.0 STATE OF THE BUFFERIr>G ENABLE SWITCH ON THE M7455: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 

?.0 MICROCODE REVSION LEVEL OF THE M7455. 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

5.0 UNIT SELECT CODE ANO STATE (ONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 
FOR EACH ON-LINE TRANSPORT. WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 

TEST 42; SCOPE LOOPS 

THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 
LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WIN 
THE M7455 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR" OR "LOOP ON TEST (SU6TEST)" FACILITIES DON'T 
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StcM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I,E. THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES), THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE: 

CODE SCOPE LOOP 

HELP, PRINT THIS MENU, 

\ TSBA READ ACCESS 

2 "ISSR flEAD ACCESS 

3 INITIALIZE CTSSR WRITE ACCESS) 

4 T^DB HIGH BYTE WRITE ACCESS 

5 TSDB LOW BYfP WRITE ACCESS 

6 TSDB MAINTENANCE -MODE WORD WRITE ACCESS 
TSOBX CTSSR HIGH BYTE) WRITE ACCESS 

(EXTENDED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 
8 EXIT (RETURN TO SUPERVISOR) 

FOR SCO^E LOOPS THAT WRITE INTO REGISTERS. THE PROGRAM PROMPTS 

THE OPERATOR FOR THE DATA TO BE WRITTEN, LIMITS ON THE DAY A PATTENS 

ARE 0-.';r7, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 

T.C hAPlTENftN'^E HISTORY 
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5 


000000 




4 






10 






11 


000000 




12 






13 






19 






20 




002000' 


21 


002000 
002000 




22 






23 






24 






25 






26 






27 






28 






29 


002000 




30 


002000 
002000 






002000 


103 




002001 


132 




00200;; 


124 




002003 


123 




002004 


102 




002005 


000 




002006 


000 




002007 


000 




002010 






002010 


101 




002011 






0020 U 


060 




002012 






002012 


000000 




002014 






002014 


001217 




002016 






002016 


101112' 




002020 






002020 


101244* 




002C22 






002022 


002156' 




002024 






002024 


002166' 




002026 






002026 


101340' 




002030 






002030 


000000 




002032 






002032 


000000 




002034 






002034 


000000 




002036 






002036 


000000 




QQ2Q40 





, TITLE TSV2 - PROGRAM HEADER 
.SBTTL PROGRAM HEADER 
,PSECT ABS 



TSV2:: 



.MCALL SVC 
SVC 

.ENABLE LC 

.NLIST BEX.CND 

. ENABL AMA 
.-.♦2000 

BGNMOD TSV2 



{ INITIALIZE SUPERVISOR MACROS 



j THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
i THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
»-- 



LSNAME; 



L*REV: 
L$DEPO 
L$l*4IT 
LiTIML 
LiHPCP 
L$SPCP 
L$HPTP 
L*SPTP 
LiLADP 
L$STA: 
UCO:s 
L$DTYP 
L*APT: 
L$DTP: 



POINTER BGNSW , BGNSF T , BGNAU , BGNDU , BGNRPT 
HEADER CZTSB.A.0,655. .0 

{DIAGNOSTIC NAME 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.BYTE 

.BYTE 

.BYTE 


/c/ 

/!/ 
/!/ 

/s/ 

/B/ 






.ASCII 


/A/ 


".ASCII 


/o/ 


* ".WORD 





♦ WORD 


655. 


' '.WORD 


L$HARO 


' '.WORD 


lisoft 


* '.WORD 


L$HW 


' '.WORD 


l.JSW 


* '.WORD 


L$LAST 


.WORD 





.WORD 





* '.WORD 





.WORD 






iREVISION LEVEL 
JO 

j NUMBER OF UNITS 
jLONGEST TEST TIME 
jPOINTER TO H.W. QUES. 
jPOINTER TO S.W. QUES. 
iPTR. TO DEF. H.W. PTABLE 
jPTR. TO S.W. PTABLE 
jOIAG. END ADDRESS 
.RESERVED FOR APT STATS 

jDIAGNOSTIC TYPE 

jAPT EXPANSION 

|PTR, TO DISPATCH TABLE 
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51 
32 
33 
34 
35 
36 
37 

38 



002040 
002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
0020 74 
002074 
002076 
002076 
002 1O0 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 



002124' 

000000 

000000 

000000 

003 
003 

000000 
000000 

000000 

003402' 

022434' 

000000 

OOOCOO 

022122' 

022220' 

000000 

003410' 

104035 

000000 

021326' 

022406' 

022326' 

021316' 

000000 

000000 

QOOOOO 



L*PRIO 
L$ENVI 
LSEXP1 
L$MREV 

L*EF: j 

L$SPC: 

L$DEVP 

L$REPP 

L$EXP4 

L*EXP5 

LIAUT 

LIOUT 

L*LUN 

L$DESP 

LILOAD 

LIETP 

L»ICP 

LiCCP 

LIACP 

L*PRT 

LATEST 

LiDLY: 

I IHIME 



J 



.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 
.BYTE 

.WORD 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORO 

.WORD 

.WORD 

.WORD 

EMT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.SBTTL 



L IDISPATCH 

{DIAGNOSTIC RUN PRIORITY 


j FLAGS DESCRIBE HOW IT WAS SETUP 


{EXPANSION WORD 


;SVC REV AND EDIT 4 
CiREVISION 
CREDIT 

jDIAG. EVENT FLAGS 







LJDVTYP 

LiRPT 





LtkV 

L*DU 



LIDESC 

EiLOAD 



LHNIT 

L»CLEAN 

LtAUTO 

L1PR0T 







DISPATCH TABLE 



{ POINTER TO DEVICE TYPE LIST 
jPTR. TO REPORT CODE 



jPTR. TO ADD UNIT CODE 

jPTR. TO DROP UNIT CODE 

jLUN FOR EXERCISERS TO FILL 

{POINTER TO DIAG. DESCRIPTION 

{GENERATE SPECIAL AUTOLOAD EMT 

{POINTER TO ERRTBL 

jPTR. TO INIT CODE 

jPTR. TO CLEAN-UP CODE 

jPTR, TO AUTO CODE 

jPTR. TO PROTECT TABLE 

{TEST NUMBER 

{DELAY COUNT 

{PTR. TO HIGH MEM 



i THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 

i IT IS USED BY THE SUPERVISOR TQ DISPATCH TO EACH TEST, 

i" 
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HEADF.R 
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DISPATCH TABLE 






39 


002122 








002122 


000014 






002124 








002124 


023216' 






002126 


024206' 






002130 


026200' 






002132 


031524' 






002134 


034314" 






002136 


040116' 






002140 


0^0230 ' 






002142 


051510' 






002144 


062336' 






002146 


066416' 






002150 


074260' 






002152 


077432 4 




40 








41 








42 








43 








44 








45 








46 








47 








48 


002154 








002154 


000003 






002156 








002156 






49 








50 


002156 


172520 




51 


002160 


000224 




52 


002162 


000200 




53 


002164 
002164 






54 








55 








56 








5 7 








58 








59 








60 








61 


002164 








002164 


000004 






002166 








002166 






62 








63 


002166 


000000 




64 


002170 


OOOOOO 




65 








66 








67 


002172 


000017 




68 


002174 


000310 




69 


002176 
002176 






70 








71 


002176 






72 
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SEQ 020 



DISPATCH 12 


.WORD 


12 


HDISPATCH:: 




.WORD 


Tl 


.WORD 


T2 


.WORD 


13 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


T7 


.WORD 


T8 


.WORD 


T9 


.WORf 


T10 


.WORD 


Til 


.WORD 


T12 



.SBTTL DEFAULT HARDWARE P- TABLE 



; THE DEFAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUES OF 
j THE TEST -DEVICE PARAMETERS. THE STRUCTURE Of THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P -TABLE. 



L*MW; : 
DFPTBL; ; 



BGNHW 
.WORD 



L 10000: 



I ♦• 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 
L10000-L*HW/2 



172520 

224 

PRI04 



{DEFAULT HARD-P-TABLE 



l 1ST (OF 2) REGISTERS 
5 INTERRUPT VECTOR 
i INTERRUPT PRIORITY. 



.SBTTL SOFTWARE P-TABLE 



j THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



BGNSW 
.WORD 

L$SW: : 

SFPTBL: : 


SFPTBL 
LlOOOl 


•L$SW/2 


TRANSTST: : 
NOITSt: 


.WORD 
.WORD 


C ; 
i 


LEPRMAX: : 
GERRMAX: : 

ENOSW 
LlOOOl; 


.WORD 
.WORD 


15. ! 

200, j 



ENABLE TEST OF TRANSPORT(S) IF «1 

INHIBIT ITERATION OPTION. 

... - ITERATE. 

. ..NZ « INHIBIT ITERATE. 

LOCAL (PER TEST) ERROR LIMIT 

GLOBAL (PER UNIT) ERROR LIMIT 



6NDM0D 



12 
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SOFTWARE P- TABLE 



7 

8 

I? 

19 

20 



002176 
002176 



21 



25 

24 
25 
26 
27 
20 
29 
33 002176 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 

000100 
0000s* 
000020 
000010 
C00004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
00O002 
000001 



000040 
00003 7 
000036 
000035 
^00034 
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SEQ 021 



TSV3:: 



j * ♦ 



.TITLE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



BGNMOD TSV3 



.SBTTL GLOBAL EQUATES SECTION 



{ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
i ARE USED IN MORE THAN ONE TEST. 



EQUALS 
j BIT DIFINITIONS 



I GET STANDARD EQUATES. 



BIT15-- 


■ 100000 




BIT14-' 


■ 40000 




BIT13-" 


■ 20000 




BIT12-- 


■ 10000 




aim-" 


■ 4000 




BIT10-" 


• 2000 




BIT09-- 


■ 1000 




BIT08-- 


■ 400 




BIT07- 


• 200 




BIT06-- 


■ 100 




6IT05-- 


- 40 




BIT04- 


• 20 




BIT03-- 


• 10 




BIT02-- 


■ 4 




BITOl- 


' 2 




BITOO-' 


• 1 




BIT9-- 


BIT09 




BIT8-- 


BIT08 




B1T7-- 


BIT07 




BIT6-- 


BIT06 




BITS-- 


BIT05 




PIT4-- 


BIT04 




BIT3-- 


BIT03 




BIT2-- 


BIT02 




RIT1-- 


BIT01 




BITO-- 


BITOO 




i EVEN 


' FLAG DEFINITIONS 




i ef; 


>2:EF17 RESERVED FOR SUPERVISOR TO PROGRAM 


EF. START-- 32. 




EF, RESTART-- 31, 




EF. CONTINUE-- 30. 




EF.NEU 


29. 




EF.PWR 


28, 





COMMUNICATION 

START COMMAND WAS ISSUED 
RESTART COMMANO WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NFW PASS HAS BEEN STARTED 
A POWER -FAIL/POWER -UP OCCURRED 



TSV3 - GLOBAL AREAS 
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SEQ 022 



I PRIORITY LEVEL DEFINITIONS 



i>4 

35 002176 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



000250 

177572 
177574 
177576 
172516 



PRI07-- 


340 


PRI06-* 


300 


PRI05-- 


240 


PRI04-- 


200 


PRI03-- 


140 


PRI02-- 


100 


PRI01-- 


40 


PRIOO-- 





! OPERATOR FLAG BITS 


EVL-- 


4 


L0T-- 


10 


ADR-- 


20 


JDU-- 


40 


ISR-- 


100 


UAM-- 


200 


BOE-- 


400 


PNT-- 


1000 


PRI-- 


2000 


IXE-- 


4000 


IBE-- 


10000 


IER-- 


20000 


L0E-- 


40000 


HOE-- 


100000 




KT11 


.SBTTL 


MEMORY MANAGEMENT DEFINITIONS 


I*KT11 


VECTOR ADDRESS 


MMVEC- 


250 


I*KT11 


STATUS REGISTER ADDRESSES 


SRO- 


177572 


SR1- 


177574 


SR2- 


177576 


SR3- 


172516 


.IF N6 




i*USER 


"I" PAGE DESCRIPTOR REGISTERS 


UIPORO- 


177600 


UIPDR1- 


177602 


UIPDR2- 


17" 604 


UIPDR3- 


177606 


UIPDR4- 


177610 


UIPDR5- 


177612 


UIPDR6- 


177614 


UIPDR7- 


177616 


.IF NB 




»*USER 


"0" PAGE DESCRIPTOR REGISTORS 


UOPDRO- 


177620 


U0PDR1- 


177622 


l»PDR2- 


177624 


U0PDR3- 


177626 


U0PDR4- 


177630 


U0PDR5- 


177632 


U0PDR6- 


177634 


UDPDR7- 


177636 



{DEFINE MEMORY MANAGEMENT REGISTERS 



I<2 



TSV3 - GLOBAL AREAS MACRO M1113 
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.ENDC 




j*USER "I" PAGE 


ADDRESS REGISTER 


UIPARO- 177640 




UIPAR1- 177642 




UIPAR2- 177644 




UIPAR3- 177646 




UIPAR4- i77650 




UIPAR5- 177652 




UIPAR6- 177654 




UIPAR7- 177656 




.IF NB 




j*USER "D" PAGE 


ADDRESS REGISTERS 


UOPARO- 177660 




UDPAR1- 177662 




U0PAR2- 177664 




U0PAR3- 177666 




U0PAR4- 177670 




U0PAR5* 177672 




U0PAR6- 177674 




U0PAR7- 177676 




.ENOC 




.ENOC 




.IF MB 




(♦SUPERVISOR "I» 


' f^AGE DESCRIPTOR REGISTERS 


SIPORO- 172200 




SIPDR1- 172202 




SIPDR2- 172204 




SIPDR3- 172206 




£IPDR4- 172210 




SIP0R5- 172212 




SIP0R6- 172214 




SIPDR7- 172216 




.IF NB 




j*SUPERVISOR "D 


' PAGE DESCRIPTOR REGISTERS 


SDPORO- 172220 




S0PDR1- 172222 




SDPDR2- 172224 




SDP0R3- 172226 




SDP0R4- 172230 




SDPDR5- 172232 




SDPDR6- 172234 




SDPDR7- 172236 




.ENOC 




{♦SUPERVISOR "I 


1 PAGE ADDRESS REGISTERS 


SIPARO- 172240 




SIPAR1- 172242 




SIPAR2- 1722-.4 




SIPAR3- 172246 




SIPAR4- 172250 




SIPAR5- 172252 




SIPAR6- 172254 




SIPAR7- 172256 




.IF NB 




j*SUPERVISOR "D 


' PAGE ADDRESS REGISTERS 


SDPARO- 172260 




SDPAR1- 172262 




S0PAR2- 172264 





SEQ 023 



L2 
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SEQ 024 



172300 
17230? 
172304 
172306 
172310 
J 72312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 



39 
40 
41 
42 
43 
44 
4 r > 
4 b 
47 



SDPAR3- 172266 
SDPAR4- 172270 
S0PAR5- 172272 
SDPAR6- 172274 
SDPAR7- 172276 
.ENDC 
.ENDC 

;*KERNEL "I" PAGE DESCRIPTOR REGISTERS 
KIPDRO- 172300 
KIPDR1- 172302 
KIPDR2* 172304 
KIPDR3- 172306 
KIPDR4- 172310 
KIPDR5- 172312 
KIP0R6- 172314 
KIPDR7- 172316 
.IF NB 

^KERNEL "D" PAGE 
DESCRIPTOR REGISTERS 
KDPDRO- 172320 
KDPDR1- 172322 
KDPDR2- 172324 
KDPDR3- 172326 
KDPDR4- 172330 
KDPDR5- 172332 
KDPDR6- 172334 
KDPDR7- 172336 
.ENOC 

j*KERNEL "I" PAGE ADDRESS REGISTERS 
KIPARO- 172340 
KIPAR1- 172342 
KIPAR2- 172344 
KIPAR3- 172346 
KIPAR4- 172350 
KIPAR5- 172352 
KIPAR6- 172354 
KIPAR7- 172356 
.IF NB 

{♦KERNEL "D" PAGE ADDRESS REGISTERS 
KDPARO- 172360 
KDPAR1- 172362 
KDPAR2- 172364 
K0PAR3- 172366 
KDPAR4- 17I r ,70 
KDPAR5- 172372 
KDPAR6- 172374 
KDPAR7- 172376 
.ENDC 



.SBTTL TSU05 REGISTER AND PACKET DEFINITIONS 



000004 



SOME GENERAL EQUATES. 



ERRVEC 



j POINTER TO ERROR VECTO. FOR BUS TIME OUT v 
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17:02 



M2 



SEQ 025 



48 


000060 


49 


177560 


50 


177562 


51 


177520 


52 




53 




54 




55 




56 




57 


100000 


58 


040000 


59 


020000 


60 


010000 


61 


004000 


62 


002000 


63 


001400 


64 


000200 


65 


000100 


66 


000060 


67 


000016 


68 




69 




70 




71 




72 




73 




74 




75 




76 




7 7 


100000 


78 


040000 


79 


020000 


80 


010000 


81 


004000 


82 


002000 


83 


001000 


84 


000400 


85 


000200 


86 


000100 


8 7 


000040 


88 


000020 


89 


000010 


90 


000004 


91 


000002 


92 


000001 


93 




94 




95 




96 




97 




98 




99 


100000 


100 


040000 


101 


020000 


102 


017375 


103 


000400 


104 


Q00QQ2 



TTIVEC- 


60 


TTICSR- 


177560 


TTIBFR- 


177562 


BDVPCR" 


177520 


jBIT DEFINITIONS FOR T 


SO 


BIT15 


BIE- 


BIT14 


SCE- 


BIT13 


RMR- 


BTT12 


NXM- 


BIT11 


NBA- 


BIT10 


HIADDR- 


BIT9JBIT8 


SSR- 


8IT7 


OFL- 


BIT6 


FATERR- 


BIT4IBIT5 


TERCLS" 


BIT38BIT2SBIT1 



{ INTERRUPT VECTOR FOR CONSOLE INPUT 

j BUS ADDRESS Oi CONSOLE INPUT 

j CONSOLE INPUT DATA BUFFER 

j BDVU PAGE CONTROL REGISTER 



{SPECIAL CONDITION 

j BUS INTERFACE ERROR 

j SANITY CHECK ERROR 

{MODIFICATION REFUSED 

jNONEXISTANT MEMORY ERROR 

jNEED BUFFER ADDRESS 

{EXTENDED ADDRESS BITS 

j SUB SYSTEM READY 

j OFF LINE BIT 

{FATAL TERMINATION ERROR CODES 

{TERMINATION CODES 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 
CXSTO) 



XSOTMK- 


BIT15 


jTAPE MARK DFTECTED 


XSORLS- 


BIT14 


} RECORD LENGTH SHORT 


XSOLET- 


BIT13 


{LOGICAL END OF TAPE 


XSORLL- 


BIT12 


s RECORD LENGTH LONG 


XSOWLE- 


BIT11 


jURITE LOCK ERROR 


XSONEF- 


BIT10 


;NON EXECUTABLE FUNf 


XSOILC- 


BIT9 


ttl'.CuAL COMMAND 


XSOIl A- 


BIT8 


{ILLEGAL ADDRESS 


XSOMOT- 


BIT7 


{TAPE IN MOTION 


XSOONL- 


BITb 


{TRANSPORT ON LINE 


XSOIE- 


BIT5 


{INTERRUPT ENABLE 


XSCVCK- 


BIT4 


tVOLUML CHECK BIT 


XSOPED- 


BIT3 


{PHASE ENCODED DRIVE 


X50ULK" 


BIT2 


{WRITE LOCKED 


XSOBOT- 


BIT1 


{BEGINNING OF TAPE 


XSOEOT- 


BITO 


{END OF TAPE 



"ION 



BIT DEFINITION^ FOR EXTENDED STATUS REGISTER 1 
CXST1) 



Xl.DLT ■ 
XI. SPARE- 
XI. COR ■ 
Xl.MBZ * 
Xl.RBP » 
Xl.UNC ■ 



{DATA LATE 
{NOT USEO 
{CORRECTABLE 



BIT15 

BIT14 

BIT13 {CORRECTABLE OATA ERROR 

BIT12»BITil*BIT10*BIT9*BIT7»BIT6*BIT5*BIT4fBIT 

BIT8 {READ BUS PARITY ERROR 

BIT1 {UNCORRECTABLE DATA OR HARD ERROR 



3*BIT2*BIT0 {ALWAYS 



N2 



TSV5 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 17*02 
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SEQ 026 



105 




X06 




107 




108 




109 




110 


100000 


111 


04^000 


112 


035400 


113 


002000 


114 


000200 


115 


000100 


116 


000077 


11? 


000007 


118 




119 




120 




121 




122 




123 


17 7400 


124 


000200 


125 


000100 


126 


000040 


127 


000020 


128 


000010 


129 


000006 


130 


000001 


131 




132 




133 




13' 




135 




136 


100000 


137 


040000 


138 


020000 


139 


017400 


140 


000377 


141 




142 




143 




144 




145 




146 




147 




148 




149 


000006 


150 


oooooe 


151 




152 




153 




154 




155 




156 




157 




158 


000000 


159 


oooooo 


160 


000001 


161 


OQOQ01 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
(XST2) 

X2.0PM - BIT15 {OPERATION IN PROGRESS (TAPE MOVING) 

X2.RCE - BIT14 {RAM CHECKSUM ERROR 

X2. SPARE- BIT13*BIT12+BIT11*BIT9*BIT8 {NOT USED BY TSU05 (ALWAYS-O) 

X2.UCF - BITIO jWPITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

X2.EXTF - BIT? jIF WRITE CHAR CMD THEN - EXTENDED FEATURES ENABLED 

X2.BUFE - BIT6 {IF WRITE CHAR CMD THEN - BUFFERING ENABLED 

X2.REV - 000077 {IF WRITE CHAR CMD THEN - MICROCODE REVISION LEVEL 

X2.UNIT » BIT2*BIT1*BIT0 ; IF GET STATUS THEN - CURRENTLY SELEC T ED UNIT NO, 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
(XST3) 



X3.MDE 
X3. SPARE* 
X3.0PI < 
X3.REV » 
X3.TRF < 
X3.0CK 
X3.M6Z 
X3.RIB 



• 177400 

■ BIT7 

■ BIT6 

• BIT5 

■ BIT4 

■ BIT3 
■BIT2*BIT1 
' BITO 



{MICRO -DIAGNOSTIC ERROR CODE 
{NOT USED BY TSU05 
{OPERATION INCOMPLETE 
{REVERSE 

{TRANSPORT RESPONSE FAILURE 
{DENSITY CHECK 
iNOl USED ALWAYS 
{REVERSE INTO BOT 



{BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
;CXST4) 

X4.HSP " BIT 15 jHIGH SPEED 

X4.RCE - BIT14 {RETRY COUNT EXCEEDED 

X4.TSM - BIT13 {TRANSPORT SPECIAL MODE 

X4.M8Z - BIT12*BIT11*BIT10*BIT9.8IT8 ;NOT USED ALWAYS 

X4.WRC ■ 000377 {WRITE RETRY COUNT FIELD 



TSSR TERMINATION COOES (BIT 0-2) 



TSREJ- 3*2 

UNREC- 6 



DEVICE REGISTER OFFSETS 



I COMMAND REJECTED 
{UNRECOVERABLE ERROR 



TSBA-- 
TSDB-- 
TSBAH- 
TSDBH- 






1 
1 



{TSDB/TSDA REGISTER 
{TSDB/TSBA REGISTER HIGH BITE 



B3 



TCV3 • n.OBAL AREAS MACRO M1113 Ol-FEB-84 I7i02 
TSU05 REGISTER ANO PACKET DEFINITIONS 



SEQ 027 



162 


000002 


163 


000003 


164 




165 




166 




167 




168 


000003 


169 




170 




171 




172 




173 


000017 


174 


000013 


175 


000012 


176 


000011 


177 


000010 


178 


000006 


179 


000005 


180 


000004 


181 


000001 


182 




183 




184 




185 




186 


100000 


187 


040000 


188 


020000 


189 


010000 


190 


007400 


191 


000200 


192 


000140 


193 


000037 


194 




195 




196 




197 


000000 


198 


000400 


199 


OOIOOO 


200 


002OO0 


201 


002400 


202 




203 




204 




205 




206 


000167 


207 


000200 


208 


000201 


209 


000210 


210 


000215 


211 


000234 


212 




213 




214 




215 




216 




217 




218 


QQQQQ6 



TSSR-- 2 
TSSRH-- 3 

j TSDB ADDRESS BIT DEFINITIONS 



iTSSR REGISTER 

iTSSR REGISTER HIGH BYTE 



A1716 - BimBITO 



! 'command definitions 
p.getstat 

P.INIT 
P. CONTROL 
P. FORMAT 

P. POSITION 
P.WRTSUI3 

P. WRITE 
P.WRTCHAR 
P. READ 



I ADDRESS BITS 17t 16 ARE IN 1:0 



17 


iGET STATUS 


13 


■INITIALIZE 


12 


> CONTROL COMMANDS 


11 


, FORMAT 


10 


iPOSITION 


6 


■SUBSYSTEM URITE 


5 


iWRITE 


4 


iWRITE CHARACTERISTICS 


1 


iREAD 



I COMMANO PACKET HEADER WORD BIT DEFINITIONS 

l - 



P.ACK 
P.CVC 
P.OPP 

p.swe 

P.MOOE 
P. IE 

P.FMT" B 
P.CMO 



BIT15 iBUFFER AVAIL FOR CONTROLLER 

8IT14 iCLEAR VOLUME CHECK 

BIT13 iREVERSE SEQUENCE OF DATA BITS 

BIT12 iSWAP BYTES IN MEMORY 
BIT11!BIV10!BIT9*BIT8 lEXTENDED COMMAND MODE FIELD 

BIT7 , INTERRUPT ENABLE 

T6JBIT5 iPACKET HEADER 

37 | MAJOR COMMANO 



TYPE (ALWAYS 
FIELO 



'0) 



I CONTROL COMMANO MODE CODES 
i - 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



0^256. 
1*256. 
2*256. 
4*256, 
5*256. 



iRELEASE BUFFER 

iREWINO 

I NO-OP 

jREWINO IMMEDIATE 
I SECURITY ERASE 



INTERRUPT 



i CONTROLLER RAM DEFINITIONS 



RMCMBEG - 167 

_RMCMENO • 200 

RMPKTBEG- 201 

RMPKTENO- 210 

RMMSGBEG- 215 

RMMSGENO" 234 



iCHARACTERISTXCS 10 DATA BEGIN RAM ADORESS 
jCHARACTERISTICS 10 DATA END HAM ADDRESS 
iCOMMANO PACKET BEGIN RAM ADOPESS 
i COMMANO PACKET END RAM ADORESS 
iMESSAGE BUFFER BEGIN RAM AOORFSS 
iMESSAGE BUFFER END RAM ADDRESS 



REGISTER DEFINITIONS IN THE HF.S5AGF BUFFER 



XSTO" 6 



lW TENDED- STATUS REGISTER CWQRD 4) 






{I^5-R^h???kR A ^ S P rt CK E ? A SiPlRin3NS 01 - FEB - 84 



C3 



I7j02 



SEQ 028 



219 


000010 


220 


000012 


221 


000014 


222 


000016 


225 




224 




225 




226 




22? 




228 




229 




250 




251 


000002 


252 


000004 


255 


000006 


254 




235 


000C10 


25b 




23? 




258 




259 




240 


000000 


241 


000001 


242 


000002 


245 


000004 


244 




245 




246 




24 7 




248 


000000 


249 


000001 


250 


000002 


251 


000005 


252 


000004 


255 


000005 


254 


000006 


255 


000007 


256 


000010 


257 


000011 


258 


000020 


259 


000021 


260 


000022 


261 


000023 


262 


000024 


263 




264 




265 




266 




267 


000200 


268 


000100 


269 


000040 


270 


000020 


271 


000010 


272 


000004 


273 


000002 


274 


OOOOOi 


275 





XST1-- 

XST2-- 
XST3-- 
XST4-- 



8. 
10. 
12, 
14. 



■EXTENOED 
■EXTENDED 
■EXTENDED 
■EXTENDED 



STATUS 
STATUS 
STATUS 
STATUS 



REGISTER 

REGISTER 
REGISTLR 
REGISTER 



(WORD 5) 
(WOPO 6) 
(WORD 7) 
(WORD 8) 



jOFFSETS 

l 



TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW 
PKHI 
PKBCNT ■ 

EX8CNT-10 



■LOW ORDER CHARACTERISTIC DATA POINTER 
■HIGH ORDER CHARACTERISTIC DATA POINTER 
■NUMBER OF BYTES IN DATA PACKET 

■NUMBER OF BYTES IN EXTENDED DATA PACKET 



■ DATA 

■ - 



PACKET OFFSETS FOR WRITE SU6SYTEM COMMAND 



BSELO 
BSEL1 
SEL2 

SELDATA 



■ BYTE 

■ BYTE 

■ WORD 

■ WORD 



■ ♦ 



■BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMANO 



» - 

PU.NOP 

PW»RDPAM 

PW.WTRAM 

PW.RFIFO 

PW.WFIFO 

PW.RDSTAT 

PW.WCTL 

PW.WFMT 

PW.WMISC 

PW.WNPR 

PW.D22 

PU.D11 

PW.013 

PW.N01511 

PW.RDEXT 

Ibseli CODES 

WC.IFAD 

WC.IOTAD 

WC.I1TAD 

WC.I5RESV 

UC.IREU 

WC.IRWU 

UC.IFEN 

WC.IQQ 




1 
2 
5 

4 
5 
6 
7 
10 

11 
20 
21 
22 
25 
24 



I NO-OP 

■READ RAM 

■WRITE RAM 

■READ FIFO 

■WRITE FIFO 

■READ STATUS 

■WRITE TAPE CONTROL 

■WRITE TAPE FORMAT 

■WRITE MISCELLANEOUS 

■WRITE NPR CONTROL 

■DO MICROTEST 22 

■DO MICROTEST 11 

■DO MICROTEST 13 

■DISABLE MICROTEST 11 ANO 15 

■READ EXT, TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 



FQR WRITE TAPE CONTROL 



BIT/ 

BIT6 
BIT5 
BIT4 
BIT5 
BIT2 
BIT1 
BITQ 



■IFAD - 


FORMATTER ADDRESS 




■ITAOO 


- TRANSPORT ADORESS 


BIT 


■ITA01 


- TRANSPORT ADDRESS 


BIT 1 


■IRESV5 


- RESERVED *5 




■ IREW 


- REWINO 




iIRWU 


- REWINO ANO UNLOAD 




1 IFEN 


• FORMATTER ENABLE 




iGO 







D3 



TSV3 - GLOBAL 
TSU05 REGISTER 


A ^ S PAC, 


2 76 




27? 




278 




279 


000200 


,280 


000100 


281 


000040 


282 


000020 


283 


000010 


284 


0000O4 


285 


000002 


286 


000001 


287 




288 




289 




290 




291 




292 


000200 


293 


000020 


294 


000010 


29'> 


000006 


296 


000001 


r.97 




298 




299 




300 


000000 


301 


000002 


302 


000004 


303 


000006 


304 




305 




306 




307 


000200 


308 


000100 


309 


000040 


310 


000020 


311 




312 




313 




314 




315 


000200 


316 


000100 


317 


000040 


318 


000020 


319 


000010 


32C 


000004 


321 


000003 


322 


100000 


323 


040000 


324 


020000 


325 


010000 


326 


004000 


32 7 


002000 


328 


0010O0 


329 


000400 


330 


000200 


331 


000100 


332 


000040 



17j02 



SEQ 029 



Sbseli CODES FOR WRITE FORMAT 



WF.IHISP 


- BIT7 


IHISP 


- HIGH SPEED 


WF.IWRT 


- BIT6 


IWRT 


- WRITE 


WF.IREV 


- BIT5 


IREV 


- REVERSE 


UF . IWFM 


- BIT4 


IWFM 


- WRITE FILE MARK 


WF.IEOIT 


- BIT3 


IEDIT 


- EDIT 


WF.IERASE 


• BIT2 


IERASE 


- ERASE 


WF.I3RESV 


- BIT1 


IRu3V3 


- RESERVED 03 


WF.I4RESV 


■ BITO 


IRESV4 


- RESERVED 04 



l ♦ 



iBSELl CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 


- BIT7 


MS.RSFIi-'O 


- BIT4 


MS.RSTAPE 


- BIT3 


MS, ATTN 


- BIT25BIT1 


MS.RSO 


• BITO 



! MS. ATTN SUBCOOES 

MSA. NOP • 0*2 

MSA. VOL ■ 1*2 
MSA.NRAM- 2*2 
MSA.FRAM- 3*2 



I INVERT SENSE OF EXTENDED FEATURES SWI'lCH 
iRESET FIFO AND INPUT PARITY ERRORR 
iRESET TAPE STATUS IN 2 FLIP-FLOPS 
{ATTENTION TRIGGER FIELD 
iRESET TIMER A t B THEN DELAY TIMES IN SEL2 



I NO-OP (NOTHING TRIGGERED) 

iSIMULATE ON-LINE/OFF-LINE TRANSISTION 

tFORCE NON-FATAL RAM ERROR (FORCES ERRCOOE 54) 

jFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



i WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 



NP.IR • BIT7 

NP.OUT » BIT6 

NP.LOOP • BITS 

NP.WRP • 8IT4 

t READ STATUS MESSAGE 8UFFER BIT DEFINITIONS 
; - 



INTERRUPT REQUEST (0-1 TRANSITION) 

I TAPE DATA DIRECTION OUT (0» IN) 

i ENABLE TRANSPORT LOOPBACK 

tWRITE CORRECT PARITY (SET-0 10 WRITE WRONG) 



S2.DIM 


BIT7 


WORD 09 BYTE 


2 


DATA IN MISS 


S2.ILW 


• BIT6 






ILW H 


S2.0UTRDY 


• BIT5 , 






OUT ROY H 


S2.INRDY 


BIT4 , 






IN RDY H 


S2.ATIMR 


' BIT3 






TIMER A FLAG H 


S2.BTXHR 


BIT2 






TIHEA B FLAG H 


S2.W0EF 


• BIT1*BIT0 j 


(UNDEFINED) 






Sl.PARIN 


■ BIT15 


WORD 08 BYTE 


1 


PARIN H 


S1.I2RESV 


• BIT14 






IRESV2 


S1.I1RESV 


■ BIT13 






IRESV1 


Sl.IEOT 


■ BIT12 






IEOT L 


S1.1IDENT 


■ BITll 






IIDENT H 


Sl.ICER 


• BIT10 






ICER H 


Sl.IFMK 


• BITO 






IFMK H 


S1.IHER 


• BIT8 






IHER H 


SO.ISPEED 


■ BIT7 


WORD 08 BYTE 





ISPEED H 


SO.IROY 


■ BIT6 






IRDY L 


SO.IONL 


' BIT5 






IONL L 



E3 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17}02 
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SEQ 030 



333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

34 7 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

366 

387 

388 

389 



000020 
000010 
000004 
000O02 
000001 



170200 



SO.ILDP 


- BIT4 i 


SO.IDBY 


■ BIT3 t 


SO.IRWD 


- BIT2 { 


SO. 1KB Y 


- BIT1 , 


SO.IFPT 


- BITO i 



ILOP L 

IDBY L 

IRWD L 

IFBY L 

IFPT L 



i ♦ 



lUNIBUS MAP DEFLATIONS 
MMRO- 170200 



.SBTTL SPECIAL MACROS AND OPDEFS, 



j SAVE GENERAL REGS 1 TO 5 

i - 

.MACRO SAVREG 
JSP. R5.REGSAV 
.ENOM 



MACRO TO FORCE AN ERROR 

MACRO FORCERROR TAG.NOTSSR 

NLIST 

IIF NOF LISTALL, .NLIST 

LIST 

IF B NO^SR 

MOV TSSRCR5),R1 

.ENOC 

MOV FORCER .FORCER 

BNE TAG 

NLIST 

IIF NOF LISTALL. .LIST 
LIST 
ENOM 



iREAD TSSR 

iIS FORCER SET? CLEAVE C BIT ALONE) 
iBR IF YES 



MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
FORCER TO 177777 
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

MACRO FORCEXIT TAG 

NLIST 

IIF NOF LISTALL. .NLIST 

LIST 

MOV FORCER. FORCER 
BMI TAG 
.NLIST 

.IIF NOF LISTALL. .LIST 
.LIST 
.ENDM 



jIS FORCER NEGATIVE? 
iBR IF YES 



r3 



000000 



TSV3 - GLOBAL AREAS MACRO M1113 
SPECIAL MACROS ANO OPDEFS, 



390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

41C 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

4 35 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 
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SEQ 031 



002176 000000 



002200 
002202 
002204 
002206 
002210 
002212 
002214 
00221b 
002220 
002222 
002224 



000000 
000000 
000000 
000000 
000224 
OO0200 
000000 
000000 
000000 

oooooo 

000000 



j MACRO TO INCREMENT ERROR COUNTS 

I • 

-MACRO NEXT.ERRNO 

.NLIST 

Ml. IIP NOF LISTALL, .NLIST 

ERRNO-ERRNOfl 
m.IIF NOF LISTALL, .LIST 
.LIST 
.ENOM 

; MACRO TO PERFORM XOR 
i - 



.MACRO 


XOR A,B 


MOV 


A.-(SP) 


BIC 


B,(SP) 


BIC 


A.B 


BIS 


(SP)»,B 


.ENOM 




EN-0 




. SBTTL 


FORCER - F 



t INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



i 

t THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 

: TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



FORCER:: 







j FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 
t - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
I - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 



.SBTTL GLOBAL DATA SECTION 

j THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
i IN MORE THAN ONE TEST. 
I - - 



, THE FOLLOWING DATA ARE SET FOR EACH iMU AT INIT TIME. 
jSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE, 

J 



EPRTSW:: 

UNITNj: 

QVP: i 

CSRADOR: j 

IVEC:: 

IPRI: : 

TSTCNT: 

LOOPCNT 

DEVCNTj 

FATFLG,- 

INTRECV 



.WORD 
.WORD 
.WORD 
.WORD 










. WORD 224 
.WORD PRI04 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 











jPRINT switch 

iUNIT UNDER TEST, 
lOUICK VERIFY FLAG, 
i ADDRESS OF CSR FOR 
l INTERRUPT VECTOR 
1 INTERRUPT 
.NUMBER OF 
{REMAINING 
1NLH6ER OF 
jSET IF 
;SET IF 



LURRENT DEVICE 

PRIORITY. 

TESTS RUN IN THIS PASS 
ITERATION COUNT FOR TEST 
OEVICE UNDER TEST 
FATAL ERROR IS DETECTED IN TEST 
TAPE INTERRUPT WAS RECEIVED 



G3 



TSV3 - GLOBAL AREAS 
GLOBAL DATA SECTION 



44 7 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

4 70 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

48? 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 



002226 
002230 
002232 
002234 
002236 
002240 
002242 
002302 
002304 
002306 
002310 
002312 
002314 
002316 
002320 
002322 
002466 
002632 



002752 
002752 
002754 
002 756 
0O276C 
002762 
002764 
002766 
0027 70 
002772 
002774 
002776 
003000 
003002 
003OO4 
003006 
003010 
003012 
003014 
003016 
003020 



000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



oooooo 

177777 

oooooi 

000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
177776 
177775 



MACRO H1113 01-FEB-84 17 '02 



EXTFEAj: 

BENBSWm 

EXPO? 

RECV: 

ERRHI 

ERRLO 

RAMOATA: : 

RAMSIZ:: 

RCVHIAOO;; 

RCVLOADD:: 

COUNT:: 

DATA:: 

TSTFLAG:: 

TSTPTR 

PRMNO: 

EXPMSG 

RECMSG 

TMPBFR 



SEQ 032 



.WORD 


i 


.WORD 


i 


.WORD 


| 


.WORD 


i 


.WORD 


i 


.WORD 


i 


.BLKW 


16. i 


.WORD 


i 


.WORD 


i 


.WORD 


\ 


.WORD 


i 


.WOPO 


i 


.WORD 


i 


.WORD 


i 


.WORD 


i 


.BLK3 


100. i 


.BLKB 


100. i 


.BLKB 


80. j 



lEXTENOED FEATURES SOFTWARE SW 0-0FF,l-0N 

jBUFFER ENABLE SWITCH SW O-OFFjl-ON 

lEXPECTED RAM DATA FOR PRAMPKT ROUTINE 

I RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

» HIGH ADDRESS MEMORY ERROR 

i LOW ADDRESS MEMORY ERROR 

I DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

iRAM OATA SIZE FOR PRAMPKT ROUTINE 

^RECEIVED BUFFER HIGH ADDRESS 

I RECEIVED BUFFER LOW ADDRESS 

I TEST COUNT PATTERN 

>TEST DATA 

j TEST FLAG WORD 

j TSTBLK POINTER 

l PRINT ROUTINE TEMP 

lEXPECTED MESSAGE BUFFER DATA 

t RECEIVED MESSAGE BUFFER DATA 

j TEMPORARY STORAGE FOR PRINT 



.SBTTL TSTBLK - TEST DATA TABLE 

♦ 

THIS TABLE CONTAINS TFST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE OATA IS: 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



i - 



TSTBLK:: 




.WORD 





.WORD 


177777 


.WORD 


B1T0 


.WORD 


BIT1 


.WORD 


BIT2 


.WORD 


BIT3 


.WORD 


BIT4 


.WORD 


BIT5 


.WORD 


BIT6 


.WORD 


BIT7 


.WORD 


B1T8 


.WORD 


BIT9 


.WORD 


BIT10 


.WORD 


BIT11 


'IORD 


BIT12 


. ORD 


BIT13 


.WORD 


BIT14 


.WORD 


BIT15 


.WORD 


tCBITO 


.WORD 


tCBITl 



;ALL ZEROS 

» ALL ONES 

I DATA FOR WALKING ONES 



jDATA FOR WALKING ZEROS 



-13 



TSV3 • GLOBAL AREAS MACRO 1 


TSTBLK 


- TEST 


DATA TABLE 


504 


003022 


177773 


505 


003024 


177767 


506 


003026 


177757 


507 


003030 


177737 


508 


003032 


177677 


509 


003034 


177577 


510 


003036 


177377 


511 


003040 


176777 


512 


003042 


175777 


513 


003044 


173777 


514 


003046 


167777 


515 


003050 


157777 


516 


003052 


137777 


517 


003054 


077777 


518 


003056 


125252 


519 


003060 


052525 


520 




003062' 


521 






522 






523 






524 






525 






526 






52? 


003062 


000000 100000 


528 


003072 


000000 000000 


529 






530 






531 






532 


003112 


000000 


533 






534 


003114 


000000 


535 






536 


003116 


000000 


537 


003120 


000000 


538 


003122 


000000 


539 


003124 


000000 


540 


003126 


oooooo 


541 


003130 


000000 


542 


003132 


oooooo 


543 






544 






545 


003134 


oooooo 


546 


003136 


oooooo 


54 7 


003140 


oooooo 


548 


003142 


oooooo 


549 


003144 


oooooo 


550 


003146 


oooooo 


551 


003150 


oooooo 


552 


003152 


002000 


553 


003154 


oooooo 


554 


003156 


oooooo 


555 


003160 


oooooo 


556 


003162 


oooooo 


557 


003164 




558 


003164 


OoOOOO 


559 


003166 


OOOOOO 


560 


003170 


OOOOOO 



M1113 



01-FEB-84 17:02 




.WORD 


tCBIT2 


.WORD 


tCBIT3 


.WORD 


tCBIT4 


.WORD 


tCBITS 


.WORD 


tCBIT6 


.WORD 


tCBIT7 


.WORD 


tCBIT6 


.WORD 


tCBIT9 


.WORD 


tCBITIO 


.WORD 


tCBITll 


.WORD 


1-CB1T12 


.WORD 


tCBITl3 


.WORD 


tCBIT14 


.WORD 


tCBIT15 


.WORD 


125252 


.WORD 


052525 



SEQ 033 



TBLEND' 



> ALTERNATING 0NE5, ZEROS 

j ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 



} STORAGE FOR DEVICE REGISTERS 

OOOOOO DW1MY: 0,100000,0,0 jDUMMY DEVICE REGISTERS, . . 
OOOOOO 0,0,0,0,0,0,0,0 

I,., FOR MULTI-UNIT CHECKOUT. 



DUFLG: 
NODEV: 

TEMPI; 
TEMP2: 
XXCOMM 
FREE: ; 
FRESIZ 
FREEHI 
KTFLG; 



.WORD 



KTENABLE:: 

NXMFLG 

NXMLO 

NXMMI 

T23At 

T23B: 

T3BFLG: 

PST32W: 

SIFLAG: 

BADDAT: 

GDDAT: ; 

LOOPFL: j 

CTAB: : 

CTABMi: 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 










.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 


2000 


.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 


u 


.WORD 






i "DROPPED UNIT" FLAG. 

i INHIBITS COOE IN "CLEAN-UP". 

jFLAG TO SAY NO DEVICE, 

;SOME TEMP LOCATIONS. 

jXXDP* COMM BLOCK POINTER. 
1 1ST FREE MEMORY ADDRESS... 
j . . .AND SIZE (IN WORDS), 
j LAST WORD IN FREE SPACE 

jKTll, MEM AVAIL FLAG - 

1 - .WORD ■ <24K OR NO KT - 

; - NZ - >24K AND KT. 

i SET BY TEST ROUTINES TO FLAG >28K UNOER TEST 

jSET IF WE CAN TEST CLEARED OTHERWISE 

jNXM LO ADORESS BIVS 

iNXM HI ADDRESS BITS FOR DAL'S 16-21 

jPROCESSOR TYPE FLAG 

i PROCESSOR TYPE FLAG B 

I TEST 3B FLAG to 

} 32W BLOCK ADDRESS FOR 32K START 

j ACTUAL DATA 
jEXPECTED DATA 

l CONFIGURATION TABLES, 
t CONFIG WORK. 



13 
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GLOBAL ENVIRONMENT STORAGE 
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SEQ 034 



561 

562 

563 

564 

565 

566 

567 

568 

569 

5?0 

57; 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

5fc8 

589 

590 

591 



003172 
003174 
003176 



003176 
003376 

003400 



003402 
003402 
003402 



592 

600 

601 

602 

603 003410 
003410 
003410 



604 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 



003476 
003516 
003536 
003541 
003545 
003551 
003555 



000000 
177777 



000000 
000000 



124 



123 



125 



052 



052 



052 



003536 
003577 
125 
102 
123 
122 
116 



003541' 
003603' 
103 
111 
103 
115 
130 



003545 
003607 
000 
105 
105 
122 



. WORD 

.WORD -1 j END Of MEM TABLE, 

CTABF * * 
ERROR'sTATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 



ERTABL 
ERTABE 

SKIPTs 





100000 

10XXXX 

160000 

160001 

14XXXX 



.WORD 
.SBTTL 



UNIT NOT TESTED 

UNIT ONLINE. NO ERRORS 

UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON EXISTENT DEVICE REGISTER 

UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED , ENCOUNTERED XXXX ERRORS 



.BLKW 
.WORD 



64. 




tl-SKIP SUBTEST 0-NO SKIP OF SUBTEST 



GLOBAL TEXT MESSAGES 



I ♦♦ 

{ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 

i MESSAGES, ANO ASCII INFORMATION THAT ARE USED IN 

i MORE THAN ONE TEST. 

I -- 



; NAMES OF DEVICES SUPPORTED 

I - 

DEVTYP <TSU05> 
LfDVTYPs: 

.ASCIZ /TSU05/ 
.EVEN 

j TEST DESCRIPTION 

I - 

DESCRIPT <***♦ TSl>05 DIAG PART 2 * REPLACE M7455 IF ERROR ** + *> 
LfDESC: : 

".ASCIZ /**** TSU05 DIAG PART 2 - REPLACE M7455 IF ERROR ****/ 
.EVEN 



iBIT TO ASCII CONVERSION FOR TSSR REGISTER 
J - 



TSSRBIT:; 



1$ 
2* 
3$ 
4$ 



115 5* 



.WORD 
.WORD 
.ASCIZ *SC 
.ASCIZ 'BIE' 
.ASCIZ 'SCE' 
.ASCIZ 'RMR' 



If ,21. 31,4*, 5$. 61,7$, 8* 

9* ,10*. 11 $.12$, 13*. 14$ ,15*. 16$ 



.ASCIZ 



NXM 1 



J3 
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SEU 03b 



632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

64 7 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

078 

6 79 

680 

681 

682 

683 

684 

685 



003561 
003565 
003572 
003577 
003603 
003607 
003614 
003621 
003626 
003633 
003640 

003646 
003701 
003 V34 
003773 
0O4C14 
004054 
004113 
004117 
004146 
0O4211 
004215 
004252 
004274 
004331 
004403 
0O4453 

004523 
004524 
004527 
004563 
004637 
004 741 
005007 
005052 
005107 
005202 
005274 
005366 
005454 



116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 
045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 



102 
111 
111 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 
040 
101 
101 
101 
116 
040 
040 
116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 
101 
122 
116 



101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
111 
045 
116 
111 
040 
042 
042 
042 



000 
040 
045 
040 
115 
103 
111 
123 
123 
124 
122 
045 



6$ 

7$ 
8$ 
9* 
101 

11$ 
12$ 
13$ 
14$ 
15$ 
16$ 



SFIERR: 

SFHERR: 

NXR: 

NXRX: 

TSSX: 

FUSI: 

USI: 

NSI: 

FNOINTR 

NOINTR: 

IFAULT: 

INTX: 

NOINIT 

NSINIT 

BRiNIT 

NUL: 

NULCR: 

EXPGOT 

EXPGT2 

DUAD12 

PKTRAM 

SCME: 

WRTMSG: 

WRTERR: 

RDERR: 

SCHERR: 

RE TERR: 

NOMEM; 



. ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

. ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

, ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASLIZ 
.EVEN 



'NBA' 

'BIT9» 

'BIT8' 

•SSR' 

' CFL ' 

•BIT5' 

'BIT4' 

•BIT3' 

'BIT2' 

»BIT1' 

'BITO' 

•TSSR ERROR AFTER SOFT INIT' 

' TSSR ERROR AFTER BUS RESET' 

/ NON-EXISTANT DEVICE REGISTER/ 

/*A ADORE SS: *06/ 

/*A TSBA.TSSR EXP'O: *06*A,*06i<N/ 

/*A TSBA.TSSR REC'Dt *06*A>06/ 

/*N*A/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED. NOT RECEIVED/ 

.ASCII /*N*A/ 

/ NO INTERRUPT WAS GENERmTED/ 

/ INTERRUPT FAULT/ 

/*A CPU PC: #06*A TSBA: *06/ 

/ "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

/ M SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/*N/ 

/*A EXP'O; #0€#A, REC'D: *06/ 

/i*N*A EXP'O; *06*A, *06*N*A REC'D: *0*A, *06/ 

/*A REGCW) WRITTEN TO: *06*A REG(R) READj EXP'D: 

.ASCIZ 'RAM Contents Do Not Match Packet Sent* 

/ CONFIG DOESN'T MATCH MFG. MASTER/ 

■WRITE CHARACTERISTICS Failed' 

'TSSR Incorrect After WRITE Command, More Bite Set Than SSR' 

'TSSR Incorrect After READ Command. More Bit* Set Than SSR' 

'FATAL ERROR IN SUBTEST - CHECK TAPE .CABLES. TRANSPORT etc.' 

'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED' 

<«N*A ***** NO NXM ADDRESS — CANNOT TEST NXM TIMEOUT. ******N 



*06*A. REC'D: *06/ 



.SBTTL GLOBAL ERROR REPORT SECTION 

I ♦♦ 

i THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRIN1. y 

l CALLS THAT ARE USED IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



005550 
005550 
005550 
005550 
00S5S4 



NXRERR j : 



BGNMSG NXRERR 



013746 
012746 



003114' 
003773' 



PRINTX 

MOV 

MOV 



eNXRX.NODEV 
NODEV.-(SP) 
4NXPX, ~(SP) 



jNON-EXISTANT DEVICE REGISTER 
I NODE V ■ NEXM ADDRESS. 



I<3 
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SEQ 036 





005560 


012746 


000002 




005564 


010600 






005566 


104415 






005570 


062706 


000006 


686 


005574 


004737 


005602 


687 


005600 
005600 








005600 


104423 




688 








689 








690 








691 








692 








693 








694 


005602 


005727 




695 


005604 


000000 




696 


005606 


001402 




697 


005610 


004777 


177770 


698 


005614 








005614 


012746 


004524 




005620 


012746 


000001 




005624 


010600 






005626 


104415 






005630 


062706 


000004 


699 


005634 


000207 




700 








701 








702 








703 








704 








705 








706 








70 7 








708 








709 








710 








711 








712 








713 








714 








715 








716 








717 








718 








719 


OC 56716 






720 


005636 






721 


005642 


010104 




722 


005644 








005644 


010446 






005646 


012746 


006227 




005652 


012746 


000002 




005656 


010600 






005660 


104414 






005662 


062706 


000006 


723 


005666 


010400 




724 


005670 


004 73 7 


015654 


725 


005674 


103410 







MOV 


02, -(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADO 


06, SP 




JSR 


PC, EXTEND 




ENOMSG 




L 10002; 







{ PRINT EXTENSION IF REQUIRED 



TRAP 



CJMSG 



j THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
i TO ANY OF THE ABOVE ERROR SIGNATURES. 



I • NO EXTENSION. 



EXTEND: 


TST 


(PC)* 


EXTA: 









BEQ 


1* 




JSR 


PC.QEXTA 


1$: 


PRINTX 


ONULCR 




MOV 


ONULCR.-(SP) 




MOV 


♦I.-CSP) 




MOV 


SP,RO 




TRAP 


CIPNTX 




ADD 


04, SP 




RTS 


Pu 



i APPENO EXTENSION TEXT. 
i PRINT A BLANK LINE 



.SBTTL PPITSSR - PRINT TSSR CONTENTS 



i ♦ 



ROUTINF. TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS CF 
THE. TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES: 

CHKAM9 CHECK FOR AMBIGUOUS CONTENTS 



PRITSSR: 



SAVRFG 

MOV R1.R4 

PRINTS 0TSSRF0R.R4 

MOV R4.-CSP) 

MOV *TSSRFQR,.(SP> 

MOV 02, (SP) 

MOV SP.RO 

TRAP CIPNTB 

MDr 06, SP 

MOV R4,R0 

JSR PC.CMKAMB 

BCS 5* 



I SAVE GENERAL REGISTERS 
, SAVE THE TSSR CONTENTS 
, PRINT THE CONTENTS OF TSSR 



I GET iSSR BACK FOR CHKAMR 
,ARE CONTENTS AMBIGUOUS ? 
i BRANCH IF NOT 



TSV3 - GLOBAL AREAS MACRO M1113 
PRITSSR - PRINT TSSR CONTENTS 



Ol-FEB-04 17:02 



L3 



SEQ 037 



726 005676 








PR1NTX 


0AMBTSSR 


005676 


012746 


006447' 




MOV 


#AMBTSSR t -(SP) 


005702 


012746 


000001 




MOV 


Ol.-(SP) 


005706 


010600 






MOV 


SP.RO 


00573 


104415 






TRAP 


C$PNTX 


005712 


062706 


000004 




ADD 


04.SP 


727 005716 


010403 




5$! 


MOV 


R4,R3 


728 005?2*> 


042703 


001476 




BIC 


OHIADDRJFATERR! 


729 00572* 


001434 






BEQ 


20$ 


730 005726 


012702 


002632' 




MOV 


*TMPB. r R,R2 


731 005732 


012701 


003476' 




MOV 


0TSSRBIT.R1 


73^ 005736 


005703 




10$: 


TST 


R3 


733 005740 


001413 






BEQ 


15$ 


734 005742 


000241 






CLC 




735 005744 


006103 






ROL 


R3 


736 005746 


103006 






BCC 


13$ 


737 005750 


011100 






MOV 


CR1),R0 


738 005752 


112022 




11*: 


MOVB 


(R0)+,(R2)» 


739 005754 


001376 






BNE 


11$ 


740 005756 


112762 


000054 177777 


MOVB 


*■' mKR2) 


741 005764 


005721 




13$: 


TST 


(Rl)* 


742 005766 


000763 






BR 


10$ 


743 005770 


105042 




15$: 


CLRB 


-CR2) 


744 005772 








PRINTX 


OTSSDEF.OTMPBFR 


005772 


012746 


002632' 




MOV 


OTMPBFR, -(SP) 


0057 76 


012746 


006420' 




MOV 


OTSSDEF.-(SP) 


006002 


012746 


000002 




MOV 


02,-CSP) 


0O6006 


010600 






MOV 


SP.RO 


006010 


104415 






TRAP 


C$PNTX 


006012 


062706 


000006 




ADD 


06, SP 


745 












746 006016 


010403 




20$: 


MOV 


R4.R3 


74 7 006020 


042703 


177761 




BIC 


OtCTERCLS,R3 


748 006024 


016303 


0065 LO' 




MOV 


TC0COOCR3),R3 


749 006C30 








PRINTX 


OTC0ASC,R3 


006030 


010346 






MOV 


R3.-CSP) 


006032 


012746 


006310' 




MOV 


♦TCOASC, -CSP) 


006036 


012746 


000002 




MOV 


*2,-(SP) 


006042 


010600 






MOV 


SP.RO 


006044 


104415 






TRAP 


C$PNTX 


006046 


062706 


000006 




ADD 


06.SP 


750 006052 


010403 






MOV 


R4.R3 


751 006054 


042703 


177717 




BIC 


OtCFATERR,R3 


752 006060 


001416 






BEQ 


25$ 


753 006062 


006203 






ASR 


R3 


754 006064 


006203 






ASR 


R3 


755 006066 


006203 






ASR 


R3 


756 006070 


016303 


007050' 




MOV 


TSFCOD(R3),R3 


757 006074 








PRINTX 


0TFCASCR3 


006074 


010346 






MOV 


R3, -CSP) 


006076 


012746 


006351' 




MOV 


OTFCASC, -CSP) 


006102 


012746 


000002 




MOV 


02, -CSP) 


006106 


010600 






MOV 


SP.RO 


006110 


104415 






TRAP 


C$PNTX 


006112 


0627C6 


000006 




ADD 


*6,SP 


758 006116 


042 704 


176377 


25$; 


BIC 


OrCHIADDR,R4 


759 006122 


001411 






BEQ 


30$ 



I SHOW CONTENTS ARE AMBIGUOUS 



j CONTENTS OF TSSR 
TERCLS.R3 {CLEAR ALL MULTIPLE BIT FIELDS 
{NO BITS ARE SET 
I TEMPORARY ASCII BUFFER 
{ASCII EQUIVALENT OF BITS 
{REMAINING BITS TO CONVERT 
{BRANCH WHEN ALL ARE DONE 
{CLEAR CARRY FOR SHIFT 
{SHIFT NEXT BIT TO CARRY 
{BRANCH IF BIT NOT SET 
{POINTER TO BIT DEFINITION 
{MOVE ASCIZ TO BUFFER 
{MOVE ALL BITS 

{INSERT A COMMA TO TERMINATE 
{POINT TO NEXT DESCRIPTION 
{GET THE REMAINING BITS 
{TERMINATE THE LINE 
{PRINT THE BIT DEFINITIONS 



{GET THE TSSR CONTENTS 

{CLEAR ALL BUT TERMINATION 

{GET THE TERMINATION CODE MEANING 

{PRINT THE TERMINATION CODE 



{TSSR CONTENTS AGAIN 
{CLEAR ALL BUT FATAL 
{DON' T PRINT IF ZERO 



TERMINATION 



{ALINE TERMINATION CODE FOR INOEX 
{GET THE FATAL TERMINATION CODE 
{PRINT THE FATAL TERMINATION CODE 



{CLEAR ALL BUT EXTENDED ADDRESS 
jOON' T PRIN1 IF iERO 



M3 



TSV3 GLOBAL AREAS MACRO Ml 113 
PRITSSR - PRINT TSSR CONTENTS 



760 



761 
762 



763 

764 

770 

771 

772 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

80S 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 



006124 
006124 
006126 
006132 
006136 
006140 
006142 
006146 
006152 
006152 
006154 
006160 
006162 
006164 
006170 

006172 

006227 
006247 
006310 
006351 
006420 
00644 7 

006510 
006530 
006553 
006601 
006623 
006643 
006725 
006774 
007020 



007050 
007060 
007114 
007125 
007171 



010446 
012746 
012746 
010600 
104415 
062706 
013703 

010346 
012746 
010600 
104415 
062706 
000207 



045 

045 
045 
045 
045 
045 
045 



006247 
000002 



000006 
002200' 



000001 
000004 

116 

116 
116 
116 
116 
116 
116 



01-FEB-84 17:02 



PRIN'iX 

MOV 

MOV 

• hV 

MOV 

TRAP 

ADD 

MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



30$ t 



045 



116 
124 
124 
106 
122 
122 
125 
106 



007060' 
111 
122 
102 
122 



157 
145 
141 
165 
145 
14S 
156 
141 



007114 
156 
145 
165 
145 



162 
162 
160 
156 
143 
143 
162 
164 



007125 
164 
163 
163 
163 



EPRT2: 
EPRT1? 



045 TSSRFQR 

045 TEXASC 

045 TC0A5C 

045 TFCASC 

045 TSSDEF? 

045 AMBTSSR 



006530' 006553' 006601' TCOCOO; 



1* 
2$ 
3$ 
4$ 
5$ 
6$ 
7$ 
8$ 



TSFCOD: 
1$ 



2J 
3$ 
4$ 



5 » 



.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.UORO 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 

.EVEN 



SEQ 058 



4TEXASC, R4 

R4.-CSP) 

OTEXASC, -CSP) 

02,-CSP) 

SP.RO 

CIPNTX 

*6, SP 

EPRTSW,R3 

R3 

R3.-CSP) 

01, -CSP) 

SP.RO 

C*PNTX 

04, SP 

PC 



{PRINT THE EXTENDED ADDRESS BITS 



{PRINT MEAASGE BUFFER ADDRESS 
I PRINT PROPER MESSAGE 



{RETURN TO CALLER 



.ASCIZ '*N*A *****REPLACE M7455*+**+« 

.ASCIZ '*N*A TSSR » *06' 

.ASCIZ '#N#A Extended Address B i ts « 

.ASCIZ '*N¥A Termination Class Code 

.ASCIZ '*N#A Fatal Termination Class 

.ASCIZ '*N*A TSSR Bit? Set? *T« 

.ASCIZ '*N*A TSSR Concents Are Ambiguous' 



*06' 

*T* 

Code 



*T 



l$.2$,3l t 4$,5$,6*,7$,8< 
'Normal Termination' 
'Termination Condition' 
' Tape Status Alert' 
'Function Reject' 
'Recoverable Error - Tape 
' Recoverable Error Tape 
' Unrecoverable Error' 
'Fatal Controller Error' 



Position One Record Down' 
Was Not Moved' 



1$,2*.3$,4$ 

'Internal Diagnostic Failure' 

' Reserved' 

'Bus Interface or Sanity Check Error' 

' Reserved' 



.SBTTL PRIPKT 



PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



{THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE, 



INPUT: 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



NOTEs R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR 



N3 



TSV3 - GLOBAL AREAS MACRO M1U3 Ol-FEB-84 17:02 
PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



820 
821 
822 
823 
824 
825 
126 
827 
828 
829 
830 
831 
832 



833 
834 
835 
836 
837 
838 
839 
840 



841 
842 
843 
844 
845 
846 
84 7 
648 
849 
850 
851 
852 
(•53 
Wi4 
Wi5 
856 
857 
858 
859 
860 
861 



007202 
007202 
007206 
007210 
007214 
007216 
007220 
007222 
007224 
007226 
007230 
007230 
007232 
007234 
007240 
007244 
007246 
007250 
007254 
007256 
007260 
007262 
007266 
007270 
007272 
007274 
007274 
007276 
007300 
007304 
007310 
007312 
007314 
007320 
007322 
007324 
007326 

007330 
007366 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



003134 



007366' 
000003 



000010 



017130' 



007330 
000003 



000010 



PRIPKT: 


SAVREG 






MOV 


R0.R5 




TST 


KTENABLE 




ONE 


10$ 




CLR 


R3 


10$: 


MO*' 


R3.R1 




MOV 


R4.R0 




ROL 


RO 




ROL 


Rl 




PRINTB 


0PKTADD,R1,R4 




MOV 


R4.-CSP) 




MOV 


Rl.-(SP) 




MOV 


OPKTADD.-(SP) 




MOV 


♦3,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADO 


010, SP 


15$: 


MOV 


R3.R0 




BEQ 


20$ 




MOV 


R4.R1 




JSR 


PC.SETMAP 




MOV 


R0.R4 


20$: 


CLR 


Rl 


25$: 


MOV 


CR4)*,R2 




PRINTB 


*PKTFRM,R1»R2 




MOV 


R2.-CSP) 




MOV 


Rl.-(SP) 




MOV 


*PKTFRM,-(SP) 




MOV 


« , - i SP ) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


010.SP 




INC 


Rl 




CMP 


R1.R5 




BLT 


25$ 




RTS 


PC 



SEQ 039 



j SAVE THE REGISTERS 

I SAVE NO. OF WORDS IN PACKET 

{ABOVE 28K UNDER TEST? 

|BR IF YES 

{SET HIGH ORDER ADDRESS TO 

{COPY HIGH ORDER ADDRESS 

{GET LOWER ADDRESS 

{SHIFT BIT 15 INTO C BIT 

{AND INTO HIGH ORDER. 

{PRINT PACKET ADDRESS 



{GET HIGH ORDER ADDRESS 
BR IF NOT ABOVE 28K . 
GET LOW ORDER ADDRESS 

SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
GET RETURNED PAR6 ADDRESS BIAS 
SAVE WORD NUMBER 
GET PACKET CONTENTS 
PRINT THE DATA 



{NEXT WORD NUMBER 
{DONE ALL PACKET WORDS? 
;LOOP TILL ALL DONE 
{RETURN 



116 
116 



045 PKTFRM: .ASCIZ 
045 PKTADD: , ASCIZ 
.EVEN 



♦*N*A Pocket Word 0*D1*A ■ *06 
'*N*A Packet Address * tf01tf05« 



.SBTTL PRIBXOR - PRINT EXPO, RECV AND XOR BYTE 



} ♦ 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THF DATA BYTE 
THIS "3UTINE IS NORMALLY CALLED ONL v FOR PRINT ROUTINES. 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



B4 



TSV3 - GLOBAL AREAS 
PRI8X0R PRINT EXPO, 



863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 



MACRO M1113 01 
RECV AND XOR BYTE 



FEB-84 I7i02 



SEQ 040 



878 
879 
88C 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
89^ 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 



007424 
007424 
007430 
007432 
007442 
007446 
007450 
007452 
007454 
007454 
007456 
007460 
007462 
007466 
007472 
007474 
00747C 
007502 
007504 

007f>06 



007554 
007554 
007560 
007562 
007572 
007572 
00 75 74 
007576 
Q07bOO 



010203 

012700 
040001 
040002 
040003 

010346 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010300 
000207 

045 



010203 



010346 
010146 
010246 
012746 



OUTPUTj 



177400 



007506 
000004 



000012 



RO 



PRIBXORj: 

SAVREG 

MOV 

XOR 

MOV 

BIC 

BIC 

BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

HOV 

MOV 

TRAP 

AOD 

MOV 

RTS 



XOR OF EXPECTED/RECEIVED DATA 



R2.R3 

R1.R3 

ttC<377>,RO 

R0.R1 

R0.R2 

R0.R3 

♦X0RBF0R*R2.R1 

R3.-CSP) 

Rl.-(SP) 

R2.-CSP) 

*XORBFOR,-(SP) 

•4,-CSP) 

SP.RO 

CIPNTB 

«12,SP 

R3.R0 

PC 



I SAVE THE 
lEXPECTED 
iFORM THE 
iBYTE 
I SAVE 
I SAVE 
I SAVE 



REGISTERS 

DATA 

EXCLUSIVE 
MASK 

LOW BYTE RECV 
LOW BYTE EXPO 
LOW BYTE XOR 



OR 



,R3 tPRINT THE MESSAGE 



|R0 HAS XOfl ON RETURN 
iRETURN TO CALLER 



116 



045 XORBFORj 



.EVEN 



.ASCIZ '*N*A EXPO} *03*A RECVj *03*A XOR; *03 



.SBTTL PRIXOR - PRINT EXPO, RECV ANO XOR 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TUO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



Rl RECEIVED DATA 
R2 EXPECTED DATA 



OUTPUT: 



RO XOR OF EXPECTED/RECEIVED DATA 



PRIXOR ii 



QQ7644' 



SAVREG i SAVE THE REGISTERS 

MOV R2.R3 lEXPECTED DATA 

X0« R1.R3 iFORM THE EXCLUSIVE 

PRINTB «X0RF0R.R2,R1,R3 |PRINT THt MESSAGE 

MOV R3.-CSP) 

MOV Rl.-(SP) 

MOV P2.CSP) 

WQV «XORFQR»-lbP> 



OR 



C4 



TSV5 
PRIXOR 



GL 



906 
909 
910 
911 
912 
915 
914 
915 
916 
91? 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 



949 

950 
951 
952 
953 
954 



RINT 



ARI 



007604 
007610 
007612 
007614 
007620 
007622 

007624 



007672 
007672 
007676 



007700 
007700 
007704 
007704 
007 706 
007712 
007716 
007720 
007722 
007726 

OQ7730 



t AS 
XPO, 

012746 
010600 
104414 
062706 
010300 
00020". 

045 



ReWWW 



000004 



000012 



116 



Oi-FEB-64 17i02 



MOV 

MOV 

TRAP 

ADO 

MOV 

RTS 



SEQ 041 



*4 , - ( SP ) 
SP.RO 

CIPNTB 
♦12.SP 
R3.R0 
PC 



ifcO HAS XOR ON RETURN 
iRETLflN TO CALLER 



045 



XORFORj .ASCIZ 
,EVEN 



'#N*A EXPO: *06*A RECVt K06KA XORi *06' 
.SBTTL PRIEQU ♦ PRINT BIT Nl'IBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT 8IT VALUES TO ASCII ANO PRINT THfc STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



RO 
Ml 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PRIEQU: 



000207 



SAVREG 
RTS PC 



.SBTTL PRIRAM 



iSAVE THE REGISTERS 
iRETURN TO CALLER 



PRINT RAM ADDRESS 



PRINT CONTROLLER RAM ADDRESS. 

THIS ROUTING IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



INPUTS: 



PRIRAM j 



010446 

012746 007730 

012746 000002 

010600 

104414 

062 706 000006 



00Q2O7 
04 5 



R4 



SAVREG 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



RAM ADDRESS 



♦R.W0R.R4 
R4, (SP) 
♦RAMFOR.-(SP) 
•2.-CSP) 

SP.RO 
CtPNTB 
06, SP 
PC 



iSAVE R1-R5 UNTIL NEXT RETURN 
I PRINT RAM ADDRESS IN ERROR 



iRLTURN 



U6 



045 RAMFQRj .ASCIZ 
*EVEN 



*N*A CQNTRQLL&R RAM ADDRESS * *QW 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17 { 02 
PRIADO - PRINT MEMORY ERROR ADDRESS 



D4 



SEG 042 



955 








956 








957 








958 








959 








960 








961 








962 








963 








964 








965 








966 








967 


007772 






968 


007772 






969 


007776 


013700 


002236' 


970 


010002 


013701 


002240' 


971 


010006 


010102 




9/2 


010010 


006101 




973 


010012 


006100 




974 


010014 








010014 


010^46 






010016 


010046 






010020 


CI? '46 


010042' 




010024 


012V46 


000003 




010030 


Ci^i-00 






010032 


MM414 






010074 


OV:706 


000010 


975 


010040 


000207 




976 








977 


01004.'* 


045 


X16 


978 








979 








980 








981 








982 








983 








984 








985 








986 








98/ 








988 








98 r 








990 








991 








992 








993 


010 K* 






994 


010'..'V- 






995 


010; i ; 


'13702 


002236' 


<*90 


010116 


013701 


002240* 


997 








996 








}99 








1000 


'"» 1 I ~) ■" 








OlOiJ.1' 


010146 






OlOliX 


012746 


010170' 




0101UC 


012746 


000002 




Oi.O?. 54 


010600 





, SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 

PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 



IMPLICIT INPUTS 



PRIADD! 



045 PRIAOj 



i • 



ERRHI 

ERRLO 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 

.EVEN 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



ERRHI, RO 

ERRLO, Rl 

R1,R2 

Rl 

RO 

*PRIA0,R0,R2 

R2.-CSP) 

RO.-CSP) 

♦PRIAO.-(SP) 

♦3,-(SP) 

SP,RO 

CIPNTB 

♦10, SP 

PC 



iSAVE R1-P5 UNTIL NEXT RETURN 

»GET HIGH ADDRESSS 

I GET LOW ADDRESS 

» COPY LOW ADDRESS 

iSHIFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

I PRINT MEMORY ADDRESS IN ERROR 



tRETuRN 



*N*A MEMORY ERROR ADDRESS - #01*05 



, SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADORES? 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH OROER ADDRESS 

- LOW ORDER ADDRESS 



PRITADD: 



SAVREG 

MOV 

MOV 

l MOV 

jROL 

iROl 

PRINTB 

MOV 

MOV 

MOV 

MOV 



ERRHI, R2 

ERRL0,R1 

R1.R2 

Rl 

HO 

*PRIT0,R1 

Rl.-(SP) 

•PRITO, -CSP) 

02.-CSP) 

SP.RO 



iSAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH ADOHESSS 

iGET LOW ADORE SS 

I COPY LOW ADDRESS 

iSHIFT BIT 15 TO C BIT 

i SHIFT INTO HIGH ORDER 

tPRTNT MEMORY ADDRESS LOW IN ERROR 



E4 



TSV3 - GLOBAL AREAS 
PRITADD - PRINT MEMORY 



MACRO Mil 13 
TEST ADDRESS 



1001 



1002 

1005 
1004 
1005 
1006 
10J7 
1003 
1CT* 
1010 
3.011 
3012 
101J. 
1014 
1C15 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
103:.' 
1033 
1034 
103'i 
1036 
1037 
1033 
1059 
1040 
1041 

10*;-. 

104? 

104 "i 
104b 
1046 
iO'iV 
104* 
1049 



010136 
010140 
-•10144 
010144 
03.0146 
010152 
010.JS6 
010x60 
Oi0162 
010V06 

01C170 
05.0233 



010300 
0)0300 
Oi.0304 
01.0312 
010320 
010322 



104414 

062706 000006 

010246 

012746 010233' 

012746 000002 

010600 

104414 

062706 000006 

000207 



Ol-FEB-64 17:02 



TRAP 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



SEQ 043 



CIPNTB 

06. SP 

0PRIT1.R2 

R2,-(S^ 

•PRITl.-(SP) 

02, (SP) 

SP,RO 

CIPNTB 

06. SP 

PC 



j PRINT MEMORY ADDRESS HIGH IN ERROR 



i RETURN 



045 
045 



116 
116 



045 
045 



PRITO: 
PRITlj 



.ASCIZ 
.ASCIZ 
♦ EVEN 



#N#A MEMORY TEST ADDRESS ! OW - 
#N*A MEMORY TEST ADDRESS HIGH 



*06' 
- *06 



. SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE TO ISSUt A SPACE RECORDS 
COMMANO (FORWARD OR REVERSE) 



INPUT: 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 - O IS FORWARD 

BIT15 • 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT : 



CARRY SE1 - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE: : 



012737 000764 
012737 140010 
005 703 
100403 



010470' 
010460* 



SAVREG 




MOV 


0500..SDELAY 


MOV 


0140010,60$ 


TST 


R3 


BMI 


5$ 



jSAVE THE GENERAL REGISTERS 

iSET UP DELAY 

j SET UP COMMAND. SPACE FORWARD 

I CHECK FOR DIRECTION 

iBR, IF REVERSE INDICATED 



TSV3 - GLOBAL AREAS 

SPACE - SPACE RECORDS (FORWARD AND REVERSE) C 



MACRO. MJ.ll.3_ Dl.-Fiere4 17:02 



F4 



SEQ 044 



1050 
1051 
1052 
1055 
1054 
105? 
1056 
1057 
1059 
1059 



1060 
1061 
10? 2 
X063 
1064 
1065 
1066 
1067 
.1068 

1069 

1070 
1071 
10'/ *i 

107:-; 

10/4 
1075 
1076 
10 / V 

iovu 

10/7 
10* t 
3 0*15 

loan 
icv/. 

1036 
106" 7 

105/, 
10*9 
1090 
10 r *l 
1092 
109', 
1094 
10 ) r 
109ti 
109 7 

l' % 98 

-099 

1100 



010324 
010330 
010333 
0103*0 

05 0342 
0)0550 

010354 

C1C360 
010364 
010366 
010366 
010572 
010374 
010400 
010402 
010106 
01043.0 
010 U 4 
010*16 
01f«2? 
01042-1 
010426 
010432 
0104 Jf 
010440 
0104 t? 
10*44 
Ox '446 
0104S0 
01C452 
Oi0452 
010454 



01 006-* 
O. 1 . ■"■*. fri 
010470 



01033? 
000407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
000411 
016501 
012702 
020201 
001401 
000402 
000261 
000401 
00024) 

010400 
000207 



010156 



PK'-VftO 000000 



ocoooo 

nCOOOO 
000000 

oooooo 



010462' 

100000 5$: 

010462' 

000400 010460' 

010460 1 10$: 

OOOOOO 

016060' 15$; 



000250 

002116' 

177772 

1/7756 

010470- 



000002 
000200 



20$ 
25$ 

40$ 

60$ 
70$ 



MOV R3,90$ 

BR 10$ 

BIC ♦BIT15.R3 

MOV R3,90$ 

BIS *BIT8,80$ 

MOV *80$,R4 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

BCS 20$ 

DELAY 250 

MOV #250, (PC)* 

. WORD 

MOV L$DLY,(PC)* 

. WORD 

DEC ~6(PC) 

BNE . -4 

DEC -22CPC) 

BNE . -20 

DEC SDELAY 

BNE 15$ 

BR 60$ 

MOV TSSR(R5),R1 

MOV *SSR,R2 

CMP R2.R1 

9EQ 40$ 

BR 60$ 

SEC 

BR 70$ 

CLC 

MOV R4.R0 

RTS PC 



I LOAD UP NUMBER OF RECORDS TO SPACE 
I GO DO COMMANO 
iCLEAR DIRECTION BIT 
j LOAD UP NUMBER OF RECORDS TO SPACE 
I SET REVERSE BIT IN COMMANO PACKET 
,SET UP R4 WITH PACKET ADDRESS 
I SEND OUT COMMANO 
i WAIT FOR SSR 
,BR, IF SSR IS SET AND OK 
j DELAY ABOUT ,25 SECONDS 



{BUMP DELAY COUNTER DOWN 

{BR, IF MORE DELAY 

jBR IF TROUBLE CARRY « CLEAR 

{READ TSSR 

i SET UP EXPECTED 

I ARE THEY OK 

{BR, IF EQUAL - OK 

{TROUBLE EXIT 

{SET CARRY NO TROUBLE 

{EXIT 

{CARRY CLEAR - ERROR 

{PASS PACKET ADDRESS 
{RETURN 



i 

{PACKET FOR SPACE COMMANO 

,BLKB 10-<,-TSV267> 



{COMMAND WORD 



80$: 

{NUMBER 

90$: 



SDELAY; 



.WORD 

OF RECORDS 

.WORD 

.WORD 

.WORD 

.WORD 

.EVEN 



TO BE SPACED OVER WORD 



{DELAY COUNTER 



.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



i ♦ 



{ROUTINE 
I COMMAND 

» 



TO ISSUE A WRITE CHARACTERISTICS 

SO THAT OTHER COMMANDS WILL BE ACCEPTED 



G4 



TSV3 - GLOBAL flREAL MACRO M1113 01-FEB-84 17:02 
WRTCHR - WRITE CHARACTERISTICS COMMAND 



SEQ 045 



1101 

HOP 

1103 

1104 

1105 

1106 

110/ 

U08 

1109 

1110 

11U 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

2.126 

1127 

1U3 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

114 7 

1148 

114<i 

1150 

1151 

1152 

1153 

1154 

1155 
1156 
1157 



0104 72 
010472 
0104 76 
010S02 
010506 
010512 
010516 
010520 
010522 
010526 
0105*2 
0*05*6 
010540 
01051* 
0105^6 
010550 
01C552 
010N5f. 
010560 
0l.05.U-: 
010570 
01057*, 
01057*; 
01060 - 

Ol.C :0* 

1 < tt . K: 
OlOnIO 

01.06 >; 
oi06i-; 

0106 K 



005037 
005037 
010465 
004737 
j.0?401 
000435 
016501 
012702 
032701 
001402 
052702 
';20201 
001401 
000421 
062704 
011403 
032763 
001402 
005237 

032763 
001402 

*"*» >'.; ■ i j 

o^>261 
0)0401 
00024 1 
0.6500 
000207 



INPUT: 



R4 ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER ANO OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA - EXTENDED FEATURES PRESENT 
BENBSW ■ BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



0O2230' 
002226 
000000 
016146 1 



000002 
000200 
000100 

000100 



OOOOIO 

000200 000012 

002226' 

000100 000012 
002230' 

000002 



WRTCHR: 



10$ 



20$ 



251 



40$ 



45$ 



50$ 



60$ 
70$ 



SAVREG 

CLR 

CLR 

MOV 

JSR 

BCS 

BR 

MOV 

MOV 

BIT 

BEQ 

BIS 

CMP 

BEQ 

BR 

ADD 

MOV 

BIT 

BEQ 

INC 

BIT 
BEQ 
INC 

SEC 

BR 

CLC 

MOV 

RTS 



BENBSW 

EXTFEA 

R4.TSDBCR5) 

PC.CHKTSSR 

20$ 

60$ 

TSSR(R5),R1 

♦SSR.R2 

*0FL,R1 

25$ 

♦0FL.R2 

R2.R1 

40$ 

60$ 

*8. ,R4 

(R4),R3 

*X2.EXTF,XST2(R3) 

45$ 

EXTFEA 



j SAVE THE GENERAL REGISTERS 
;CLEAR BUFFER ENABLE SWITCH 

CLEAR EXTENDED FEATURES SW SWITCH 

SEND OUT COMMAND 

WAIT FOR SS3 

BR. IF SSR IS SET AN© OK 

BR IF TROUBLE CARRY - CLEAR 

READ TSSR 

SET UP EXPECTED 

WAS OFF LINE SET IN TSSR 

BR, IF NO OFL SET 

MAKE THEM LOOK ALIKE 

ARE THEY OK 

8R, IF EQUAL • OK 

TROUBLE EXIT 

POINT TO WRT CHARA DATA PACKET 

GET ADDRESS OF MESSAGE BUFFER 

EXTENDED FEATURES BIT SET? 

BR IF NO 

SET EXTENDED FEATURES SW SWITCH 



«X2,8UFE,XST2(R3) 

50$ 

BENBSW 



70$ 

TSSR(R5*),R0 
PC 



i BUFFER ENABLE SWITCH SET 
BR. IF SWITCH NOT SET 
SET SOFTWARE SWITCH FOR ENABLED 

SET CARRY NO TROUBLE 

EXIT 

CARRY CLEAR • ERROR 

RETURN TSSR CONTENTS 

RETURN 



H4 



TSV3 GLOBAL ArtE'iS MACRO M1113 01-FEB-84 17;02 
WRTCHR •• WRITE CHARACTERISTICS COMMAND 



SEQ 046 



1 1 1>8 

1.159 

UbO 

1161 

1162 

1163 
1164 
1165 
1166 
." 16.' 
1168 
1169 
11*0 
1171 
117? 
1175 
1174 
1175 
11 76 
117? 
1176 
1W9 
1160 
1181 
118? 
1183 
1184 
1185 
1186 
1187 
1188 
1139 
1190 
119i 
1192 
1193 
1194 



.SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 



} ♦ 



119:. 

11*S 

1197 
1198 
1199 
1200 
1201 
1205 
1205 
i:»06 
120? 
1208 



oic6;:< 

0t0t';24 

0106 MO 
0106?'* 
010*40 
01064<4 
0106*0 
0.10652 
0106'J2 
010-556 
01 IX, 60 
010*64 
010660 
010672 
0106 74 
010700 
010702 
010704 
010 70- 

O10710 
01071? 



0107 1> 
10770 
010. YC 

010722 



O 12 704 
010465 

012703 
004737 
103417 

012727 
060000 
013727 
oOOOOO 
005367 
GUI 3 75 
005 367 
00136? 
005303 
001357 
00024 1 
'M0400 
000207 



1 32010 

000000 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR 80T 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE : 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC, REWIND 



INPUT ; 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



010720' 
000000 
000550 
016060* 



000372 
002116' 
177772 
177756 



REWINO; 


SAVREG 






MOV 


*RWPACK t R4 




MOV 


R4.TSDBCR5) 




MOV 


*360. ,R3 


10$: 


JSR 


PC.WAITF 




BCS 


20$ 




DELAY 


250. 




MOV 


0250. .(PC)* 




.WORD 







MOV 


L IDLY, (PC)* 




.WORD 







DEC 


-6(PC) 




BNE 


. -4 




DEC 


-22CPC) 




BNE 


. -20 




DEC 


R3 




BNE 


10$ 




CLC 




20$: 


MOV 


R4.R0 




RTS 


PC 




.BLKB 


10-<. -TSV26 


RWPACK : 








.WORD 


102010 




.WORD 






{SAVE R1-R5 LNTIL NEXT RETURN 

iGET PACKET ADDRESS 

iSENO PACKET ADDRESS TO EXECUTE 

j ENOUGH TIME FOR 2400' REEL TO REWIND 

jWAIT FOR SSR TO SET 

ll.EAVE WHEN SSR IS SET 

j WAIT FOR ,25 SECONDS 



l BUMP COONTER DOWN 

jKEEP GOING 

jCLEAR CARRY TO SET ERROR 

itASS THE PACKET ADDRESS 

jRETURN 



jPOSTION COMMAND (REWIND) 
jNOT USED 



14 



T5V3 - 
REWIND 

.1209 

1210 
1211 

1212 

1213 

1214 

1215 

1216 

121V 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1*29 

1230 

1251 

1232 

1233 

1234 

12S5 

1236 

1237 

1256 

1239 

1240 

1241 

1242 

124* 

1244 

1245 

1246 

1247 

124^ 

1249 

12S0 

1351 

12b2 

1253 

1254 

1255 

125* 

125 

l.T-fl 

1259 

1260 

1261 

1262 

1263 

1264 

}265 



GLOBAL .".R1.AS MACRO M1113 01-FE8-84 17:02 
- POSITION TAPE (REWIND) COMMAND 



SEG 04 7 



010721 
01072< 
0107 30 
0V07.V. 
010710 
010742 
010 7^ 
0107'.". 4 
010760 
010764 
0107/0 
0107 M 
OlOYVw 

on coo 

ouoc;: 

0X1010 

01 10 J r* 

01502 \ 
011.03 .U 

on 020 

i 10..r 

011021 
011032 



01.2 701 
012/02 
005003 
004 757 

1 12 765 
004 737 
010265 
COO 737 
116511 
i. 22 1 24 
001401 
0052\,3 
\>5202 
02022 ! 
003761 
00"/ 03 
001402 
■200241 
000401 
000261 
012 737 
000207 



.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET, 



INPUT \ 



R4 
R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 

IMPLICIT OUTPUT : 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8, FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM:; 



002242' 
000201 

016146' 

OOOOOO 000000 

016146' 

OOOOOO 

016146' 

OOOOOO 



000210 



000010 002302 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS Of FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

SET MAINTENANCE MODE 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADWESS OF NEXT RAM LOCATION 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOW GOOD COMPARE 

SETUP RAMSIZ FOR PRAMPKT ROUTINE 

RETURN 



.SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 





SAVREG 






r*\ 


ORAhOATA.Rl 




f-\:-. 


*RMPKTBEG,R2 
R3 

PC.CHKTSSR 
*0,TSD8(R5) 


10*: 


w.iH 


PC.CHKTSSR 




MOV 


R2.TSDBCR5) 




JSR 


PC.CHKTSSR 




MOVB 


TS0ACR5),(R1) 




CMPB 


CRD + .CR4)* 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 




CMP 


R2»*RMPKTEND 




BLE 


10$ 




TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50$: 


MOV 


«8. , RAMSIZ 




RTS 


PC 



J 4 



TSV3 GLCIVL AREAS MACRO M1U3 01TEB-84 17 { 02 

CKRAM2 COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 048 



] ;>66 








K-6/ 








1263 








1<?69 








12/0 








:r?i 








1272 








:2<3 








?274 








.(2/5 








27. 








.277 








12 n 








\?-< 








i-.'-VO 








inn 








l-rdr. 








l^a* 








12C1 








i ?8 








i ;?«■. 








A2C 








12' '; 








..28> 








v°9;- 








l*9i 








i; i? 








12 .'A 


011034 






129- 


011034 






li."^- 


'11040 


01 ..(01 


002242' 


12S 6 


t -11044 


J 2703 


000*67 


129? 


* :1050 


00SOO3 




123b 


V* '052 


cu^rs? 


016146' 


1299 


•)i ,.0S6 


?i.w.- 


000000 000000 


1300 


01 »004 


«;■ v - "*»r 


016146' 


13C1 


A i 10A- 


'.■t'.-:{:'i 


000000 


1302 


c^iC74 


1*04,37 


016146' 


1303 


01HX) 


116511 


000000 


1304 


01I1C4 


122124 




1305 


011106 


001401 




1306 


011,10 


0O5203 




1307 


011112 


005202 




1J08 


011114 


012737 


000010 002302' 


1309 


011122 


001,737 


002226' 


1310 


011126 


001407 




1311 


011130 


012737 


000012 002302 1 


1312 


011136 


020227 


000200 


1313 


011142 


003750 




1314 


011144 


000403 




1315 


011146 


020227 


000176 


1316 


011152 


003744 




1317 


011154 


005703 




1318 


011156 


001402 




1319 


011160 


000241 




1320 


011162 


000401 




1321 


011164 


000261 




±322 


011166 


000207 





ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT j 



R4 
R5 



OUTPUT : 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM2: 


» 
*SAVREG 






MOV 


*RAM0ATA,R1 




MOV 


♦RMCHBEG.R2 




CLR 


H3 




JSR 


FC.CHKTSSR 




MUVB 


♦0.TSDDCR5) 


10*: 


JSR 


PC.CHKTSSR 




MOV 


R2.TSDRCR5) 




JSR 


PC.CMKTSSR 




MOVH 


TSBA(R5),(Rl) 




CMPU 


(fU)« a (R4)» 




BEQ 


20$ 




INC 


H3 


20$: 


INC 


R2 




MOV 


«6. .RAMSTZ 




TST 


EXTFEA 




BEQ 


25$ 




MOV 


010. .RMMSIZ 




CMP 


R2.0RMCHEND 




BLE 


10$ 




BR 


27$ 


251: 


CMP 


R2,ORMCHEND-2 




BLE 


10$ 


27$: 


TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50$: 


RTS 


PC 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

UAIT FOR SSR 

SET MAINTENANCE MODE 

UAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TC EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS Of' NEXT RAM LOCATION 

ASSUME EXTFEA NOT S£T 

IS THE SOFTWARE EXTENDED FEATURES 

BR. IF NOT SET 

SFf RAMSI7 FOR EXYi.^D FEATURES 

AT ENO Of EXTENDED BUFFER 

BR, IF NOT AT FKD VET 

AT END BRANCH 

REACHED ENO 1ET ? 

BRANCH TILL ALL READ 

UAS mN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

ANO EXIT 

SHOW GOOD COMPARE 

RETURN 



SET 



I<4 



TSV3 - GLOBAL AREAS 

CKRAM2 - COMPARE RAM TO I/O" CHARACTERISTICS ""DA 



MACRO Mill? 01:FEe.-8A 17:02 



SEQ 049 



1323 








1324 








1325 








13?*i 








1327 








1328 








1329 








1330 








1331 








1332 








1333 








1334 








1335 








1336 








1337 








1338 








1339 








1340 








1341 








1342 








1343 








1344 








1345 








1346 








134 7 








1346 








1349 








1350 


011170 






1351 


011W0 






1352 


011174 


010037 


002304' 


1353 


011200 


010137 


002306' 


1354 


011204 


005737 


003134' 


1355 


011210 


001403 




1356 


011212 


004737 


017130' 


1357 


011216 


010001 




1358 


011220 


0050O4 




1359 


011222 


005003 




1360 


011224 


010205 




1361 


011226 


011264 


002322 


1362 


011232 


011164 


002466' 


1363 


011236 


022221 




1364 


011240 


001401 




1365 


011242 


005203 




1366 


011244 


062704 


000002 


1367 


011250 


020427 


000014 


1368 


011254 


003764 




1369 


01125t> 


0327 65 


000200 000012 


1370 


011264 


001403 




13/1 


011266 


020427 


OOuOlb 


1?72 


011272 


003755 




1373 


011274 


005703 




1374 


011276 


001402 




1375 


011300 


000241 




1376 


011302 


000401 




1377 


011304 


000261 




137/'. 


011306 


000207 




1379 









,SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



I ♦ 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RE.CV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES, 



INPUT; 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET •• MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SuT TO LOW ORDER ADDRESS OF RECV 



CKMSG 



10$: 
15$: 

25$: 



50$: 



55$: 
60$: 



3AVREG 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

CMP 

BEQ 

INC 

ADD 

CMP 

BLE 

BIT 

OEQ 

CMP 

eLE 

1ST 

BEQ 

CLC 

BR 

SEC 

RTS 



RO, RCVHIADD 

Rl.RCVLOAD 

KTENARLE 

10* 

PCSETMAP 

R0.R1 

R4 

R3 

R2.R5 

(R2).EXPMSGCR4) 

(RU,RECMSG(R4) 

CR2)».CRL)* 

25$ 

R3 

*2,R4 

R4,frl4 

15$ 

*X2,EXTF,XST2CR5 

50$ 

R4,<U6 
15$ 

R3 
55$ 

60$ 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 

SAVE RECV HIGH ADDRESS 

SAVE RECV LOW ADDRESS 

TESTING ABOVE 28K? 

BR IF NO 

RETURN ADDRESS BIASED TO PAR6 IN RO 

GET RETURNED ADDRESS BIASED TO PAR6 

WORD IN BUFFER 

CLEAR ERROR SEEN FLAG 

GET EXPD BUFFER ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

EXPD EQUAL RECV? 

BR IF YES 

SET ERROR SEtrt FLAG 

POINT TO NEXT WORD ADDRESS 

DONE FIR. r 7 WORDS? 

BR If NO 

j IS EXTENDED FEATURES SET IN EXPD? 

BR IF NO 

DONE EXTENDED FEATURES WORD? 

BR IF NO 

ANY ERRORS SEEN? 

BR IF NO 

SET FAILURE 

SET SUCCESS 
RETURN 



L4 



TSV3 - GLOBAL AREAS 


MACRO MU13 


CKMSG 


- COMPARE WRITE 


CHAR, MESSA 


1580 








1581 








1382 








1383 








1384 








1385 








1336 








138? 








1388 








1389 








1390 








1391 








1392 








1393 








1394 








1395 








1396 








1397 








1398 








1399 








1400 








1401 








1402 








IT 03 








14C4 








1405 








1406 








1407 








1408 


011310 






1409 


011310 






1410 


011314 


020327 


000144 


1411 


011320 


003412 




1412 


011322 


C12703 


000144 


1413 


011326 








011326 


012746 


011442' 




011332 


012746 


000001 




011336 


010600 






011340 


104417 






011342 


062706 


000004 


1414 


011346 


010037 


002304' 


1415 


011352 


010137 


002306' 


1416 


011356 


005737 


003134' 


1417 


011362 


001403 




1418 


011364 


004737 


017130' 


1419 


011370 


01OOO1 




1420 


011372 


005004 




1421 


011374 


005005 




1422 


011376 


111264 


002322' 


1423 


011402 


111164 


002466' 


1424 


011406 


122221 




1425 


011410 


001401 




1426 


011412 


005205 




1427 


011414 


062704 


000001 


1428 


011420 


020403 




1429 


011422 


002001 




1430 


011424 


000 764 




1431 


011426 


005705 





01-FEB-84 17:02 
■ BUFFERS 



SEQ 050 



>SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



ROUTINE TO COMPARE AN EXPECTEO AND RECEIVED MESSAGE 
i BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
{ERROR PRINT ROUTINES, 



I INPUT: 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH OflDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



j OUTPUT : 

1 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADO 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG2: 



5$ 



101 
15$ 



25$ 



50$ 



SAVREG j 

CMP R3.0RECMSG-EXPMSG 

BLE 5* ; 

MOV ORECMSG -EXPMSG. R3 

PRINTF OOEBUGMSG j 

MOV OOEBUGMSG, -(SP) 

MOV 01,-CSP) 

MOV SP.RO 

TRAP CIPNTF 

ADD 04. SP 

MOV RO, RCVHIADO 

MOV Rl.RCVLOAD 

TST KTENABLE 

BEQ 10$ 

JSR PC.SETMAP 

MOV R0.R1 

CLR R4 

CLR R5 

MOVB (R2),CXPMSG(R4^ 

MOVB (R1),RECMSG(R4) 

CMP8 (R2)>.CR1)» 

BEQ 25$ 

INC R5 

ADD 01, R4 

CMP R4.R3 

BGE 50$ 

3R 15$ 

TST R5 



SAVE R1-R5 UNTJL NEXT RETURN 

jQSD IS COUNT ABOVE MAX ALLOWED? 

800 BR IF NO 

»OS0 

SOD 



SAVE RECV HIGH ADDRESS 
SAVE RECV LOW ADDRESS 
TESTING ABOVE c'fi"? 
OR IF NO 

return address biased to par6 in ro 
get returned address biased to par6 
woro in butfer 
Clear error seen flag 
save expd for error report 
'we recv for error report 
expd equal recv? 

BR IF YES 

SET ERROR SEEN FLAG 

POINT TO NEXT BYTE 

DONE ALL BYTES? 

BR IF >ES 

DO NEXT BYTE 

ANY ERRORS SEEN? 



M4 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17:02 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



SEQ 051 



1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
144 7 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 

1461 
1462 
1463 



1464 
1465 
1466 
l-'V/ 
1468 
1469 
14 70 
1471 
1472 
1473 
3 4 74 
1475 
1476 

1477 

1478 
1479 
1480 



1481 
1482 



011430 
011432 
011434 
011436 
011440 

011442 
011532 

011543 
011576 
011631 



011644 
011644 
011644 
011650 
011654 
011654 
011654 



011656 
011656 
011656 
011662 
11666 
011672 
011672 
011672 



001402 
00024 1 
000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



004737 
004737 



104423 



005636 
017014 



004737 
012700 
004737 



104423 



005636' 

000004 

007202' 



55$: 
60$: 



BEQ 
CLC 

SEC 

RTS 



55$ 

cot 

PC 



I BR IF NO 
{SET FAILURE 

i SET SUCCESS 
jRETURN 



DEBUGMSG: 
FERCM: .ASCII 



ERCM: 

SIMSG; 

TINERR: 



J * 

i 



,asc?:z 
.Asci:/ 

.ASLWZ 
.EVEN 



.ASCIZ PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;&)S)D 

/tfNtfA ***/ 

/ TSSR ERROR CODE REC'D - / 

/ AFTER DOING SOFT INIT/ 

/TEST: .,./ 



{PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
\ INPUT : 

! Rl CONTENTS OF TSSR AT ERROR 
{SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSGm 



BGNMSG SFIMSG 



L 10003: 



JSR 
JSR 

ENDMSG 

TRAP 



PC.PRITSSR 
PC.CKDROP 



C$MSG 



{PRINT CONTENTS OF TSSR REGISTER 
{DROP UNIT. IF ALLOWED 



{PRINT ROUTINE TO PRINT THE CONTENTS OF 

j TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET 



{INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



BGNMSG PKTSSR 



PKTSSR: 


; 






JSR 


PC.PRITSSR 




MOV 


04, RO 




JSR 


PC.PRIPKT 




ENDMSG 




L 10004 : 







{PRINT THE CONTENTS OF TSSR REGISTER 

{NO. OF WORDS IN PACKET 

{PRINT THE CONTENTS OF COMMAND PACKET 



TRAP 



CSMSG 



N4 



1SV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 17j02 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



SEQ 052 



1483 
1484 

1485 
1486 
1487 

1488 
1489 
1490 
1491 
1492 
1493 

1494 
1495 
1496 
1497 



1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 

1510 
1511 



1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521. 
1522 
1523 
1524 
1525 
1526 
1527 

1528 

1529 
1530 
1531 
1532 



011674 
011674 

011674 
011700 
011704 
0:1710 
011710 
011710 



011712 
01171? 
011712 
011716 
011716 
011716 



011720 
011720 
011720 
011724 
011726 
011730 
011734 



j PRINT ROUTINE TO PRINT THE CONTFNTS OF 
TSSR AND A GET STATUS COMMAND PACKET, 



INPUTS: 



004737 005636* 
012700 000002 
004737 007202' 



104423 



Rl 
R4 



BGNMSG 
PKTGETSi: 

JSR 
MOV 
JSR 

ENDMSG 
L10005: 

TRAP 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



PKTGETS 

PC.PRITSSR 

42.R0 

PC.PRIPKT 



C$MSG 



; PRINT THE CONTENTS OF TSSR REGISTER 
j NO. OF UORDS IN GET STATUS PACKET 
; PRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS j 



Rl 
R4 



TSSR CONVENTS 

ADDRESS OF COMMAND PACKET 



004/57 005636' 



104423 



SFFMSG: : 



L 10006: 



BGNMSG SFFMSG 

JSR PC.PRITSSR 
ENDMSG 

TRAP C*MSG 



j PRINT CONTENTS OF TSSR REGISTER 



.SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



} 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 ^OW ORDER MESSAGE BUFFER 

R3 HIGH ORDfR MESSAGE BUFFER ADDRESS 

NOTE: R3 TS IGNORED IF KTENABLE FLAG IS CLEAR 



004 75 7 005636 

010200 

010301 

004737 014052 



BGNMSG 


PKTMES 


PKTMES: : 




JSR 


PC.PRITSSR 


MOV 


P2.R0 


MOV 


R3.R1 


JSR 


PC.PRMESS 


ENDMSG 





iPRINl CONTENTS OF TSSR 
jLQU ORDER ADDRESS 
;HIGH ORDER ADDRESS 
;PRINT THE MESSAGE BUFFER 



B5 



TSV3 - GLOBAL AREAS 
PKTMES - PRINT TSSR 



MACRO MU13 01 
ANO MESSAGE BUFFER 



FEB-64 WiOP 



SEQ 053 



1533 
1534 
1535 
1536 
153/ 
1538 
1539 
1540 
1541 
154? 
1543 
1544 
1545 
1546 
154 7 

1546 
1549 
1550 
1551 



1552 
1553 
1554 
1555 
1556 
1557 
155S 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 

1567 
1566 

1569 

1570 
1571 
1572 



1573 
1574 
1575 
1576 
1577 
1576 
1579 
1580 
1581 



Oil 734 
011734 



011736 
011736 
011736 
011742 
011746 
011752 
OU 752 
OU752 



011754 
011754 
0U754 
011760 
011764 
011766 
011772 
011776 
011776 
011776 



104423 



L 10007 t 



TRAP 



CIMSG 



.SBTTL A005SR - PRINT TEST ADDRESS AND TSSR 
» 

PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR ANO A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERPLO LOW ORDER MEMORY TEST ADDRESS 



004737 010106 
016501 000002 
004737 005636" 



104423 



ADDSSR ! 



LlOOlOi 



BGNMSG ADDSSR 



JSR 
MOV 
JSR 
ENDMSG 

TRAP 



PC.PRITADD 
TSSR(R5),R1 

PC.PRITSSR 



CIMSG 



iPRINT MEMORY TEST ADDRESS 

iGET CURRENT TSSR 

iPRINT THE CONTENTS OF TSSR REGISTER 



.SBTTL MSGEXP - PRINT WRITE. CHAR, EXPD-RECV MESSAGE BUFFERS 

* 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVMIAOO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNhSG MSGEXP 



012700 000007 

005737 002226' 
001402 

012700 000010 

004737 014363* 



iQ44^ 



MSGEXP} : 




MOV 


♦ 7 t R0 


TST 


EXTFEA 


BEQ 


51 


MOV 


•6. ,R0 


5»: JSR 


PC.PRMSGEXP 


ENDMSG 




1100U: 




TRAP 


CtMSG 


. SBTTL 


FIFEXP - P 



lASSUME NO EXT FEATURES 

lEXT FEATURES SET? 

iBR IF NO 

lEXT FEATURE BUFFER IS 6 UijROS 

iPRINT EXPD'RECV MESSAGE BUFFERS 



PRINT FIFO EXP/RECV DATA 



PRINT ROUTINE TO PRINT F If UP/RECV DAIA 

Rl BYTE COUNT 

UMPLiaT INPUT St 



TSV3 - 
F If EXP 



G{ -°^n^ i*»m bau 



3 Ol-FEB-84 17 } 02 



C5 



SEQ 054 



1582 
1585 
1584 
1585 
1586 

1587 



1588 



1589 
1590 
1591 



1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
160! 
1604 
1605 
1606 
1607 
1608 
1609 

!610 
1611 
1612 
1613 



012000 
012000 
012000 
012000 
012002 
012006 
012012 
012014 
012016 
012022 
012022 
012026 
012032 
012034 
012036 
012042 
012044 
012050 
012050 
012050 
01205? 
012121 



1614 
1615 
1616 
1617 



012160 
012160 
012160 
012164 
012166 
012170 
012170 
012172 
012176 
012200 
012202 
012206 
012210 
012214 
012220 
QIH<22Q 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
0101O0 
004737 



104423 
045 
045 



012701 
012100 
001410 



I 
I 



EXPMSG - r'PECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



FIFEXP55 



BGNMSG FIFEXi 



012052' 
000002 



000006 

012121 
000001 



000004 
014732 



116 
116 



045 
045 



L10012: 

FIF1.MSG: 

FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

AOD 

MOV 

JSR 

ENOMSG 

TRAP 



♦FIF1MSG.R1 

Rl.-(SP) 

♦flFlMSG.-(SP) 

♦2,-CSP) 

SP.RO 

CIPNTX 

♦6.SP 

♦FIF2MSG 

♦fIF2MSG,-(SP) 

• 1,-CSP) 

SP.RO 

CIPNTX 

*4,SP 

Rl.RO 

PC.PRBYTEXP 



»PRINT BYTES TRANSFERRED 



l PRINT HEADER MSG 



iGET BYTE COUNT 

iPRINT FIFO BYTES IN ERROR 



.EVEN 



CIMSG 
.ASCIZ 

.ASCIZ 



*N*A NUMBER OF BYTES TRANSFERRED - *D2 
*N*A FIFO DATA BYTES IN ERROR:' 



,SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012222 



BGNMSG 

MSGSTAT j S 

MOV 



10$ 



010O46 

012746 000001 

010600 

104415 

062706 000004 

000766 

012700 000012 

004737 014362 



20$ 



L 100131 



MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 

JSR 

ENDM5G 



MSGSTAT 

♦STATC00.R1 

(R1)»,R0 

20$ 

RO 

RO.-(SP) 

*1. (SP) 

SP.RO 

CIPNTX 

♦4.5P 

10$ 

♦10.. RO 

PC.PRMSGEXP 



I ASCII ADDRESS TABLE 

I DONE ALL MSG LINES? 

I BR IF YES 

iPRINT STATUS BIT NAMES 



iDO ANOTHER MSG LINE 

iNLflBER OF WORDS IN A READ STATUS BUFFER 

iPRINT EXPQ/RECV MESSAGE BUFFERS 



»AT^mN? R !ttTUS H@ft6tfi M%MG?Mhkl i0 * 



D5 



SEQ 055 



1618 
1619 

1620 
1621 
1622 
1623 
1624 
1625 
1626 
162? 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 

1643 
1644 
1645 
1646 



012220 104423 



TRAP 



012222 
012240 
012302 
012373 
012464 
012555 
012617 



1647 
1648 
1649 
1650 



1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 



012674 
052674 
012674 
01270O 
01270*. 
012704 
012704 
012706 
012712 
012714 
012716 
012722 
012724 
012730 
012734 
012754 
012734 

012736 
012756 
013031 
013130 
013227 
013326 
013425 
013524 



012240' 
045 
0*5 
045 
045 
045 
045 



012302' 
116 
116 
116 
116 
116 
116 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
CO0766 
012700 
004737 



104423 

012756' 
045 
045 
045 
045 
045 
045 
045 



012736' 



000001 



000004 

000012 
014362 



013031 

116 
116 
116 
116 
116 
116 
116 



012373' 
045 
045 
045 
045 
045 
045 



013130' 
045 
045 
045 
045 
045 
045 



STATC00: 
II:. ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



2$ 
3$ 

4* 

5$ 
6$ 



CIMSG 

.WORD 
*N#A Top* 
***** 
#W*A 
*N*A 

*N*A Tap* 
*N*A 



1$, 21,31, 4$, 5$, 61,0 



Bua Signal* 
PARERR<15> 
IRESV2<14> 
IRESV1<13> 

Buo Signals 
0ATMIS<7> 



in Word #8:* 
IEOT <12> 

IIDfcNT<U> 
ICER <10> 
in Word 09 :* 
ILW<6> 0UTRDY<5> 



IFHK <9> 
IHER <8> 
ISPEED<7> 



IR0Y<6> 
I0NL<5> 
IL0P<4> 



inwo<2 

IFBY<1 
IFPT<0 



.EVEN 



INRDY<4> 



.SBTTL MSGLOOP - PRINT LOOPBACK HEADER ANO MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MF.SSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG 

MSGLOOP: : 

MOV 

10$; MOV 
BEQ 

PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
BR 

20*: MOV 
JSR 
ENOMSG 

L10014: 

TRAP 



MSGLOOP 

•L00PC00.R1 

(R1)»,H0 

201 

RO 

RO.-(SP) 

#1.-(SP) 

SP.RO 

CIPNTX 

<>4,SP 

101 

♦1O..R0 

PCPRMSGEXP 



t ASCII ADORESS TABLE 
tDONE ALL MSG LINES? 
jBR IF YES 
l PRINT STATUS BIT NAMES 



iDO ANOTHER MSG LINE 

I NUMBER OF WORDS IN A READ STATUS BUFFER 

iPRINT EXPD/RECV MESSAGE BUFFERS 



CIMSG 



LOOPCOD: .WORD 

Hi .ASCIZ '*f*A Tap* 

21:. ASCIZ ****** PARERR<15> 

31:. ASCIZ '*N*l\ IHISP- >IEOT< 12> 

41:. ASCIZ **N*A IWFM ->IFMK<09> 

lit. ASCI/ '*N*A ITADO->IRDY<06> 

6*:. ASCIZ '*N*A IRCW ">IDBY<03> 



045 7» : , ASCIZ '*N*AIG0 «>IFPT<00> 
.EVEN 



It, 21, 31, 41. 5*, 6*, 71,0 
Bua Loopback Signal* in Word 08: 

IRESV2<14> 
IWRT->IIDENT<11> 
IEDIT->IHER <08> 
ITA01->I0NL <05> 
IRWU ->IRWO <02> 



IRESV1<13> 
IMfcV ->ICER <10> 
IFAD ->ISPEED<07> 
IERASE->ILDP <04> 
IFEN ">IFBY <01> 



.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 

1 ♦ 

tPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



E5 



TSV3 - GLOBAL AREAS MACRO MU13 01-FEB-84 17:02 

MSGSU6 • PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



SEQ 056 



1666 
1(67 
1666 
1669 
1670 
1671 
16 72 
1673 
1674 
1675 

.1676 
1677 
16 78 



1679 
16G0 
1681 
1682 
1683 
1684 
1695 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 

1697 
1698 
1699 
17O0 
1T01 



1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 



013552 
013552 
013552 
013556 
013562 
013562 
013562 



012700 000012 
004737 014362 



104423 



013564 

013564 
013564 
013570 
013574 

013604 
013604 
013604 



004737 007772' 

013701 002232' 

013702 002234' 
004737 007554' 



104423 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



MSGSUB: : 



BGNMSG MSGSUB 



L10015: 



MOV 
JSR 
ENOMSG 

TRAP 



010., RO 
PC.PRHSGEXP 



C*MSG 



j SIZE OF WRITE SUBSYSTEM BUFFER 
I PRINT EXPD/RECV MESSAGE BUFFERS 



,SBTTL MEMAOD - PRINT MEMORY ADDRESS DATA ERROR 

¥ 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI • MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



MEMADD: 



BGNMSG MEMADD 



L 10016: 



t • 



JSR 
MOV 
MOV 
JSR 
ENDMSG 

TRAP 

.SBTTL 



PC. PR I ADD 

EXPD.R1 

RECV.R2 

PC.PRIXOR 



I PRINT MEMORY ADDRESS IN ERROR 
iGET EXPO DATA 
»GET RECEIVED DATA 
j PRINT EXPD/RECV 



C*MSG 

PRAMPKT - PRINT RAM ANO PACKET DATA 



iPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
j WHEN THE RAM DATA DOES NOT MATCH, 



: INPUTS: 



i 



R4 



POINTER TO COMMAND PACKET 



t IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 



F5 



TSV3 - GLOBAL AREAS MACRO M1113 
PRAMPKT - PRINT RAM AND PACKET DATA 



Ol-FEB-84 17:02 



SEQ 057 



1717 






1718 






1719 






1720 






1721 






1722 






1723 






1724 013606 






1725 013606 






1726 013612 


012701 


002242' 


1727 013616 


005002 




1728 013620 


122124 




1729 013622 


001005 




1730 013624 






1731 013634 


000436 




1732 013636 


116105 


177777 


1733 013642 


116403 


177777 


1734 013646 






1735 013656 


042703 


177400 


1736 013662 


116137 


177777 002234' 


1737 013670 


116437 


177777 002232' 


1738 013676 






013676 


010346 




013700 


013746 


002232* 


013704 


013746 


002234* 


013710 


010246 




013712 


012746 


013766' 


013716 


012746 


000005 


013722 


010600 




013724 


104414 




013726 


062706 


000014 


1739 013732 


005202 




1740 013734 


005737 


002302' 


1741 013740 


001404 




1742 013742 


020237 


002302' 


1743 013746 


003724 




1744 013750 


000403 




1745 013752 


020227 


000010 


1746 013756 


002720 




1747 013760 


005037 


002302' 


1748 013764 


000207 




1749 






1750 0137<:6 


045 


116 045 


2.751 






1"752 






1753 






175* 






175b 






1756 






1757 






1758 






1759 






1760 






1761 






1762 






1763 






1764 







IF RAMSIZ-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



PRAMPKT: 



5$ 



7$ 



SAVREG 

MOV 

CLR 

CMPB 

BNE 



*RAMDATA,R1 
R2 

CR1)»,CR4)* 
7$ 



FORCERROR 



10$ 



15* 
20* 
254 



RAMASC: 



5 * 

J 



BR 

MOVB 

MOVB 

XOR 

BIG 

MOVB 

MOVB 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

TST 

BEQ 

CMP 

BLE 

BR 

CMP 

BLT 

CLR 

RTS 

.ASCIZ 
.EVEN 



7I.N0TSSR 



10* 
-1CRD.R5 

-1CR4),R3 
R5.R3 
$177400, R3 
-URD.RECV 

-1(R4),EXPD 

♦RAMASC , R2 , RECV , EXPO ♦ R3 

R3,-CSP) 

EXPD.-CSP) 

RECV.-(SP) 

R2.-CSP) 

♦RAMASC, -(SP) 

♦5,-($P> 

SP.RO 

C*PNT8 

*14 t SP 

R2 

RAMSIZ 

15$ 

R2, RAMSIZ 

5* 

25* 

R2,*8, 

5* 

RAMSIZ 

PC 



j SAVE R1-R5 IMTIL NEXT RETURN 

{DATA FROM THE RAM 

iINIT BYTE NLW8ER 

{COMPARE EXPECTED, RECEIVED 

i BR IF NO MATCH 

{5WD 

{GET RECV RAM DATA 

{GET EXPO PACKET DATA 

i XOR EXPD/RECV 

lLOW BYTE ONLY 

{GET RECEIVED RAM DATA 

{GET EXPECTED RAM DATA 



{UPDATE BYTE COLNT 
{DEFAULT TO 8.? 
iBR IF YES 
jOONt ALL BYTES? 
{BR IF NO 

{DONE DEFAULT NUMBER OF BYTES? 

iBR IF NO 

{SET DEFAULT RAMSIZ 

{RETURN 



*N*A BYTE: *D2*A RAM; *03*A Packet: *03i<A X0R:*03 



.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



{THIS ROUTINE PRINTS THE CONTENTS OF 

{THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 

jTSV-05. 

,INPUT: 



RO 
Rl 



LOW ORDER ADDRESS OF hESSAGE BUFFER 
HIGH ORDER ADDRESS OF MESSAGE BUFFER 



NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



G5 



TSV5 - GLOBAL AREAS MACRO MH13 01-FEB-84 17:02 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 058 



1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 



1780 



1781 
1782 
1783 
1784 
1785 
1786 
1787 



1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 



014052 
014052 
014056 
014060 
014064 
014066 
0140)0 
014072 
014074 
014076 
014076 
014100 
014102 
014106 
014112 
014114 
014116 
014122 
014122 
014126 
014132 
014134 
014136 
014142 
014144 
014146 
014150 
014152 
014156 
014160 
014160 
014162 
C14164 
014170 
014174 
014176 
014200 
014204 
014206 
014212 
014214 
014216 
014224 
014226 

014230 
014275 
014333 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
0127*6 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
0105C1 
010300 
001403 
004737 
010005 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020427 
003005 
002761 
032763 
001355 
000207 

045 
045 
045 



J 

;ThIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 

I - 



PRMESS: 



003134 



10$: 



014230' 
000003 



0O0010 

014275' 
000001 



000004 



017130 



014333 
000003 



OOOCIO 
000007 

000200 000012 



20$: 



116 
116 
116 



045 
045 
045 



50$: 

PROASC: 
PR1ASC: 
PRASC: 



SAVRtG 

MOV 

TST 

BNE 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

BEQ 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BGT 

BLT 

BIT 

BNE 

RTS 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



R0,R5 

KTENA8LE 

10$ 

Rl 

R1.R3 

RO 

Rl 

♦PROASC. R1.R5 

R5.-CSP) 

RL.-CSP) 

♦PROASC, -CSP) 

♦3, -CSP) 

SP,RO 

C$PNTX 

♦10, s? 

♦PR1ASC 

♦PRlASC.-CSP) 

•1. -CSP) 

SP.RO 

CIPNTX 

♦4,SP 

R4 

R5.R1 

R3.R0 

20$ 

PC.SETMAP 

R0.R5 

♦PRASC.R4.CR5)* 

(R5)*,-CSP) 

R4.-CSP) 

♦PRASC, -CSP) 

♦3, -CSP) 

SP.RO 

C$PNTX 

♦10, SP 

R4 

R4,*7 

50$ 

20* 

0X2,EXTF,XST2CR3 

20$ 

PC 



j SAVE THE REGISTERS 

jSAVE LOW ORDER ADDRESS 

I ADDRESS ABOVE 28K? 

I BR IF YES 

i SET HIGH ORDER ADDRESS TO 

I SAVE HIGH ORDER ADDRESS 

tSHIFT BIT15 TO C BIT 

j SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



jPRINT HEADER FOR CONTENTS 



i NUMBER OF THE NEXT WORD 

»COPY LOU ORDER ADDRESS 

i COPY HIGH ORDER ADDRESS 

I BR IF NOT ABOVE 28K 

j SETUP PAR ADDRESS IN RO 

j GET PAR FORMAT ADDRESS fiBOVE 28K 

j PRINT THE CONTENTS OF MEMORY BUFFER 



iNUMBER OF THE NEXT 

I DONE ALL YE T ? 

i BRANCH IF ALL DONE 

l PR INT FIRST 7 WORDS 

) I EXTENDED FEATUTES ON ? 

j PRINT EXTENDED STATUS WORD 

jRETURN 



**N*A Message Buffer Addresi • *0l*05' 
'*NWA Message Buffer Contents? ' 
•#N#A Word*Dl*A: *0' 



.SBTVL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



H5 



TSV3 - GLOBAL AREAS 



PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



MACRO M1U3 01-FEB-84 17:02 



SEQ 059 



1603 
1804 
1805 
1806 
1807 
1808 
1809 
1310 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
18' j 
1620 
1821 
1822 
1823 



1824 



1825 
1826 
1827 
1828 
1829 
1830 
1831 



1332 
1833 
1834 

1835 
1836 
1837 
1838 



0.4362 
014362 
014366 
014370 
014374 
014376 
014402 
014404 
014406 
014406 
014410 
014412 
014416 
014422 
014424 
01442* 
014432 
014432 
C144 36 
014442 
014444 
014446 
014452 
014454 
014460 
014464 
014466 
014470 
014500 
014500 
014502 
014504 
014506 
014510 
014514 
014520 
014522 
014524 
C14530 
014532 
014534 
014536 
014540 

014542 



010005 
013700 
0100O4 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062700 
0050O4 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
101415 
062706 
005204 
020405 
002001 
000752 
000207 

045 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 



RO 



- NUMBER OF WORDS IN BUFFER 



IMPLICIT INPUTS: 



002306 
002304 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



jSAVE Rl R5 UNTIL NEXT RETURN 

tSAVE NUMBER OF WORDS 

iGET RECV LOW ADDRESS 

l COPY LOW ADDRESS 

iGET RECV HIGH ADDRESS 

iSHIFT BIT15 TO C BIT 

I SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



014542 
000003 



OOOOIO 

014607 
000001 



000004 

O0J>322 
002466 



014645* 
000005 



000014 



PRMSGEXP;; 




SAVREG 




MOV 


R0.R5 


MOV 


RCVLOADD, RO 


MOV 


R0,R4 


MOV 


RCVHIADD ,R1 


ROL 


RO 


ROL 


Rl 


PRINTX 


♦PRMSG0.R1.R4 


MOV 


R4.-CSP) 


MOV 


Rl.-(SP) 


MOV 


♦PRMSGO.-(SP) 


MOV 


43,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦10, SP 


PRINTX 


JPRMSG1 


MOV 


♦PRMSf.l.-CSP) 


MOV 


•l.-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦4.SP 


CLR 


R4 


MOV 


♦EXPMSG.R1 


MOV 


♦RECMSG, R2 


20 0: MOV 


CR1),R0 


MOV 


(R2).R3 


XOR 


R0.R3 


PRINTX 


*PRMSG2 t R4,(R 


MOV 


R3.-CSP) 


MOV 


(R2)*,-(SP) 


MOV 


CR1)*,-CSP) 


MOV 


R4.-CSP) 


MOV 


*PRM5G2,~CSP) 


MOV 


♦5.-CSP) 


MOV 


SP,RO 


TRAP 


CIPNTX 


ADD 


♦14, SP 


INC 


R4 


CMP 


R4.R5 


BGE 


501 


BR 


20$ 


50$; RTS 


PC 



jPRINT HEADER FOR CONTENTS 



j NUMBER OF THE CURRENT WORD 
iGET EXPO BUFFER ADDRESS 
iGET RECV BUFFER ADDRESS 
jGET EXPO 
iGET RECV 
j XOR EXPD/RECV 
)»,(R2)*,R3 



116 



iNUMBER OF THE NEXT 
iDONE ALL >ET? 
iBR IF YES 
{DO ANOTHER 
iRETURN 

045 PRMSGO: .A5CIZ ' *N*A Messao* Buffer Address - *0H05' 



15 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17:02 
PRM5GCXP - PRINT EXPD/RECV MESSAGE BUFFERS 



SEQ 060 



1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 



18/6 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 



014607 
014645 



014732 
014732 
014736 
014740 
014744 
014746 
014752 
014756 
014760 
014764 
014770 
014772 
014776 
015002 
015012 
015014 
015016 
015022 
015030 
015032 
015032 
015034 
015040 
015044 
015046 
015052 
015056 
015060 
015062 
015066 
015076 
015100 
015100 
015110 
015110 
015112 
015114 
015116 
015120 
015120 



045 
045 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
042703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 



116 
116 



045 
045 



PRMSG1: .ASCIZ ' *N*A M«««ao« Buffer Contents:' 

PRMSG2i .ASCIZ ' *N*A WORD /h<D2*A EXPD: *06*A RECV: *06*A XOR: *06' 
.EVEN 

.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

♦ 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS; 



002320' 

002322' 
002466' 

177400 
015300 

177400 
015302 



002320' 
002320' 000010 



015302' 
015300 

015146 
000005 



EXPMSG 
RECMSG 

PRBYTEXP;; 

SAVREG 

MOV 

CLR 

CLR 

MOV 

MOV 

20$: MOVB 
BIC 
MOVB 
MOVB 
BIC 
MOVB 
XOR 
CMPB 
BEQ 
INC 
CMP 
BHI 

27$: PRINTX 
MOV 



- EXPECTED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER 



R0,R5 

PRMNO 

R4 

♦EXPMSG, Rl 

♦RECMSG, R2 

(Rl).RO 

♦tC<377>,R0 

RO,PRBEXP 

(R2),R3 

♦tC<377>,R3 

R3,PRBREC 

wO.R3 

(R1)*,(R2)* 

301 

PRMNO 

PRMNO, ♦S. 

301 



BYTE 



000014 



013746 0C2320 



30$: 
35$; 



50$ 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

FORCEXIT 

BR 35$ 



301 |BR I' YES 

♦PRBMSG , R4 , PRBEXP , P9Bt>£C , R3 
R3,~(SP) 
PRBREC-CSP) 



jSAVE R1-R5 UNTIL NEXT RETURN 

jSAVE NUMBER OF BYTES 

iINIT ERROR COUNT 

j NUMBER OF THE CURRENT _ 

jGET EXPD BUFFER ADDRESS 

iGET RECV BUFFER ADDRESS 

iGET EXPD BYTE 

I CLEAR UPPER BYTE 

»SAVE FOR ERROR REPORT 

jGET RECV BYTE 

l CLEAR UPPER BYTE 

I FOR EHR^ REPORT 

i XOR EXPD/RECV 

jEXPD - RECV? 

jBR IF YES 

I UPDATE ERROR COUNT 

iTRINTED ft? 



PRBEXP, (SP) 

R4, -(SP) 

OPRBMSG,-(SP) 

05,-CSP) 

SP,RO 

CIPNTX 

014, SP 

50$ 



FORCERROR 27$ # N0TSSR 

INC R4 

CMP R4.R5 

BGE 50$ 

BR 20$ 

PRINTX *PRBTOT, PRMNO 

MOV PRMNO, -(SP) 



1&80 
lOSO 

;S0O 

j NUMBER OF THE NEXT 

iDONE ALL YET? 

iBR IF >ES 

jDO ANOTHER 

I PRINT TOTAL ERROR COUNT 



J 5 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17:02 
PR8YTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



SEQ 061 



1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
189A 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 

1907 
1908 



1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
192? 
1924 
1925 
1926 

192 7 
1928 



1929 

1930 
1931 



015124 
015130 
015134 
015136 
015140 
015144 

015146 
015233 

015300 
015302 



015304 
015304 
015304 
015310 
015310 
015310 



015312 

015312 
015312 
015316 
015316 
015316 



012746 
012746 
010600 
104415 
062706 
000207 

045 

045 

000000 
000000 



015233 
000002 



000006 



116 
116 



045 
045 



MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

PRBMSG; .ASCIZ 
PRBTOT: .ASCIZ 

.EVEN 
PRBEXP: .WORD 
PRBRECt .UORD 



OPRBTOT.-CSP) 

♦2.-CSP) 

SP,RO 

CIPNTX 

*6,SP 

PC 



, RETURN 



'*N*A BYTE **D2*A EXPDj *03*A RECV: *03tfA XOR; *03' 
•*N*A NUMBER OF BYTES IN ERROR - *D2' 



jEXPD 
I RECV 



.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 



i ♦ 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS; 



Rl 
R2 



004 737 007554 



104423 



EXPREC:: 



L10017; 



BGNMSG 

JSR 
ENDMSG 

TRAP 



RECEIVED DATA 
EXPECTED DATA 



EXPREC 
PC.PRIXOR 



tPRINT THE DATA 



CIMSG 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 

♦ 

PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
INPUTS: 



004 737 007424 



104423 



j Rl 


RECEIVED DATA BYTE 


j R2 


EXPECTED DATA BYTE 


i - 

BGNMSG 


EXPBREC 


EXPBREC: : 




J r ,R 


PC.PHIBXOR 


ENDMSG 




L 10020 j 




TRAP 


CIMSG 



jPRINT THE DATA 



I<5 



TSV3 - GLOBAL AREAS MACRO Ml 113 
EXPBREC - PRINT EXPD/RECV BYTE DATA 



1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
194 3 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 



01-FE3-84 17:02 



SEQ 062 



,SBTTL RAMERR - PRINT RAM AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS} 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NW1BER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



1954 
1955 



1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
196 v > 
1966 
1967 
1968 
1969 
1970 
1071 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 

1981 
1982 
1983 



015320 

015320 

015320 004737 013606' 

015324 

015324 

015324 104423 



RAMERR:: 



L 10021: 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENDMSG 



; PRINT RAM/PACKET DATA 



TRAP 



CfMSG 



.SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



UAMOATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 

NUMBER OF BYTES IN PACKET 

IK RAMSIZ-0 THEN DEFAULT TO 8. 

HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 



015326 

015326 

015326 004737 010106' 

015332 004737 013606' 

015336 

015336 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



BGNMSG RAMTADD 
RAMTADD: : 

JSR PC.PRITADD 

JSR PC.PRAMPKT 

ENDMSG 
L 10022: 



jPRINf TEST ADDRESS 
{PRINT RAM/PACKET DATA 



L5 



TSV3 - GLOBAL AREAS MACRO M1U3 

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET "DA 



1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
199b 
1997 
1998 

1999 
2000 
2001 
2002 
2003 



2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 

2018 



015336 104423 



2019 
202C 



2021 
2022 
2023 

2024 
2025 
2026 
202 7 
2028 



015340 
015340 
015340 
015344 
015350 
015354 
015360 
015360 
015360 



015362 
015362 
015362 
015362 
015366 
015372 
015374 
015376 
015402 
035406 
015406 
015406 



015410 



01 : FEB-84 17:02 

TRAP 



SEQ 063 



CiMSG 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 



} * 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 



042701 
042702 
004737 
004737 



104423 



177400 
177400 
007700' 
007554' 



{INPUTS; 




; Rl 


RECEIVED DATA 


t R2 


EXPECTED DATA 


j R4 


CONTROLLER RAM ADDRESS 


BGNMSG 


RAMEXP 


RAMEXP: : 




BIC 


OtC<377>,Pl 


BIC 


<KC<377>,P2 


JSR 


PC.PRIRAM 


JSR 


PCPRIXOR 


ENDMSG 





jSAVE EXPO RAM DATA BYTE 
jSAVE EXPD RAM DATA BYTE 
;PRINT THE RAM ADDRESS 
jPRINT THE DATA 



L 10023: 



TRAP 



CIMSG 



.SBTTL TIMEXP - PRINT TIMER A,B ANU EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
ANO TIMER A,B HEADER MESSAGE 



012746 
012746 
010600 
104415 
062706 
004737 



104423 



015410 
000C01 



000004 
007554' 



tINPUTS: 




i Rl 


RECEIVED DATA 


5 R2 
s - 


EXPECTED DATA 


BGNMSG 


TIMEXP 


TIMEXP:: 




PRINTX 


OTIMSGO 


MOV 


*TIMSG0, -(SP) 


MOV 


•1,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


04. 3P 


JSR 


PC.PRIXOR 


ENDMSG 





j PRINT HEADER 



jPRINT THE DATA 



L 10024 



TRAP 



CJMSG 



045 



116 



045 



TIMSGOt .ASCIZ 
.EVEN 



'*N*A TIMER A STATUS IS IN BIT 3«N*A TIMER B STATUS IS IN BIT 2« 



.SBTTL BADSSR - PRINT TSSrt ERRORS ON DATA TRANSFERS 



M5 



TSV3 - GLOBAL ARRAS MACRO M1113 01 -FEB -84 17;02 
BAOSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



SEQ 064 



2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 

2041 
20^2 

20* a 



j ♦ 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS j 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 



2044 
2045 
2046 



2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
20/0 
2071 
2072 
2073 
2074 
2075 
2076 



015510 
015510 
015512 
015516 
015516 
015520 
015524 
015530 
015532 
015534 
015540 
015542 
015546 
015546 
015546 
015550 



01024c 
042702 

010246 
0.12746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



BADSSR: 



BGNMSG BADSSR 



177400 



015550 
000002 



000006 
005636 

116 



045 



MOV 


R2.-CSP) 


BIC 


$177400, R2 


PRINTB 


4XFERASC.R2 


MOV 


R2.-CSP) 


MOV 


OXFERASC-UP) 


MOV 


02.-C3P) 


MOV 


SP.RO 


TRAP 


CtPNTB 


ADD 


06, SP 


MOV 


(SP)*,R2 


JSR 


PC.PRITSSR 


ENOMSG 




L10025; 




TRAP 


C»MSG 


XFERASCi 


.ASCIZ '#N*A 



5SAVE DATA TRANSFERRED 
{GET JUST ONE BYTE 



{RESTORE R2 

{DECODE TSSR CONTENTS 



#N*A Data Transferred - i<03 



.SBTTL GLOBAL SUBROUTINES SECTION 



i ♦ * 



THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST, 



.SBTTL SQFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER X5 TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS, 



INPUTS: 



R5 



OUTPUTS: 



RO 
CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR, IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE j 



N5 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17:02 
SOFINIT - SOFT INITIALIZE OF CONTROLLER 



SEQ 065 



2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

211V 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

23 32 

2133 



0i5604 
015604 
015610 
015616 
015622 
015626 
015630 
015634 
015640 
015642 
015644 
0-5646 
i\ 5650 
015652 



015654 
015654 
015660 
015662 
015666 
015670 
015674 
015676 
015700 
015704 
015706 
015712 
0157)4 
015720 



012765 
004737 
016500 
010004 
042704 
052704 
020400 
001402 
000241 
000401 
000261 
000207 



010004 
032700 
0010C4 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042 704 
020427 



000000 000002 

016080' 

000002 

176277 
0022C0 



MOV 
JSR 
BCS 
ERRDF 



SOFINIT s: 

SAVREG 
MOV 
JSR 
MOV 
MOV 
BIC 
BIS 
CMP 
BEQ 
CLC 
BR 
5*: SEC 
10$; RTS 



4ADDRESS.R5 
PC, SOFINIT 
CONTINUE 



j REPORT FATAL ERROR 



i SAVE THE REGISTERS 
O0.TSSRCR5) j DO THE INIT. 
PC.WAITF } WAIT FOR SSR 
TSSR(R5),R0 {GET THE TSSR REGISTER 
R0.R4 {TSSR CONTENTS 

*tC<HIADDR!0FL>.R4 

*SSR!NBA,R4 jR4 HAS EXPECTED CONSENTS 
R4.R0 j ONLY EXPECTED BITS SET ? 

5$ j BRANCH IF OKAY 

{CLEAR THE CARRY FOR ERROR 
10$ ;G0 TO EXIT 

jSET THE CARRY BIT 
PC {RETURN TO CALLER 



.SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT ; 



RO CONTENTS OF TSSR 



OUTPUT: 



RO CONTENTS OF TSSR 

CARRY SF. r - NO AMBIGUITY 

CL3 - AMBIGUOUS CONTENTS 



CHKAMB : 



100000 
174077 

000200 

000040 

i 7 7 761 
000016 



5$ 



SAVREG 




MOV 


R0.R4 


BIT 


0SC.RO 


8NP. 


5$ 


BIT 


*tC<NBA!OFL! 


BNt' 


40$ 


BR 


451 


BIT 


OSSR.RO 


BNt 


101 


B.TT 


06IT5.RO 


et-a 


40i 


8IC 


0tCTERCLS,R4 


CMP 


R4.016 



OTHER BITS SET ? 



j SAVE THL" GENERAL REGISTERS 
{CONTENTS OF TSSR 
tlS BIT 15 SET ? 
{BRANCH IF YES 
!SSR!HimDDR>.RO {ANY 
{MUST BE AN ERROR 
(RETURN WITH SUCCESS 
lIS READY BIT SET ? 
{BRANCH IF READY BIT 
{IS FATAL ERROR BIT 
{ERROR IF NOT 

{CLEAR ALL BUT TERMINATION CODE 
{ALL THREE BITS MUST BE SET 



IS 
SET 



SET 



Bb 



TSV5 - GLOBAL AREAS MACHO MU13 

CHKAMB • CHECK TSSR FOR AMBIGUITY 



Ol-rEB-84 17}02 



SEQ 066 



3134 015724 


001007 




2135 015726 


000410 




2136 015730 


032700 


000040 


2137 015734 


001405 




2138 015736 


032700 


000006 


2130 015742 


001002 




2140 015744 


000241 




2141 015746 


000401 




2142 015750 


000261 




2143 015752 


000207 




2144 






2145 






2146 






2147 






2148 






2149 






2150 






2151 






2152 






2153 






2154 


000200 




2155 


000001 




2156 






2157 






2158 015754 


000 




2159 






2160 015755 


000 




2161 






2162 






2163 015756 


000000 




2164 






2165 015760 


000000 




2166 






2167 






2168 015762 


010046 




2169 015764 


013700 


002210' 


2170 015770 


012720 


016026' 


2171 015774 


012720 


000340 


2172 016000 


012600 




2173 016002 


011646 




2174 016004 


012766 


000000 000002 


2175 016012 


000002 




2176 






2177 






2178 016014 


011646 




2179 016016 


012766 


000340 000002 


2180 016024 


000002 




2181 






2182 






2183 






21B4 016026 






016026 






2185 016026 


012737 


000001 002224' 


2186 016034 


105037 


015755' 


2187 016040 


132^37 


000001 015754* 


2188 016046 


001003 




2199 046050 


152737 


000001 01*755* 





BNE 


401 




BR 


45$ 


10$ j 


BIT 


♦6IT5.R0 




BEQ 


45$ 




BIT 


♦6IT2IBIT1.ro 




BNE 


45$ 


40tj 


CLC 






BR 


50$ 


451: 


SEC 




501} 


RTS 


PC 



l ERROR IF NOT SET 

I OK IF ALL ARE SET 

iIS FATAL ERROR BIT SET ? 

lERROH IF BIT IS SET WITH SSR 

iIS THIS A FUNCTION REJECT 

iBR. IF TSSR IS OK 

I AMBIGUOUS CONTENTS 

I SHOW SUCCESS - NO AMBIGUITY 
iRETURN TO CALLER 

.SBTTL ENAINT.DSBINT - ENABLE /DISABLE INTERRUPTS 

I DEFAULT DISPLAY INTERRUPT HANDLERS. 

I IF DISPLAY TIME-OUT, REPORT 0EV FATAL, AND ABORT PASS. 

i OTHERWISE, SAVE DPU REGISTERS AND DISMISS, 

I 

I BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES: 

l 



I0KCKIN-BIT7 
IOKSTP-BITO 



i DON'T CHECK FOR BAD INTERRUPTS 
I EXPECT "STOP" INTERRUPT. 



TEST WILL. 



i INTERRUPT MASK -■ SAYS EXPECTING IN T ERRUPTS 

INTMASKj .BYTE 

I INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 

INTFLAGj .BYTE 

i SAVED INTERRUPT VECTOR t 
INTVECi .WORD 
I SAVE CPU PC 
INTCPO .WORD 

iSUBROUTINE TO ENABLE INTERRUPTS; 

I SAVE RO 

|GET POINTER TO VECTORS 

iSET UP INTERRUPT VECTOR 

jRESTORE RO 

iSET CPU TO LEVEL 

iSUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 
DSBINTt MOV (SP).-(SP) 

MOV ♦PRI07.2CSP) 

RTI 



ENAINT j 


MOV 


RO, -CSP) 




MOV 


IVEC.RO 




MOV 


♦INTR.CRO)* 




MOV 


#PRI07 # (R0)» 




MOV 


(SP)»,RO 




MOV 


(SP).(SP) 




MOV 


♦0.2CSP) 




RTI 





7) 



INTRn 



.SBTTL INTR 
BGNSRV INTR 



INTERRUPT HANDLERS 



MOV 

CLRB 

BITB 

BNE 

BXSB 



♦l.INTRECV 
INTFLAG 

♦IOKSTP, INTMASK 
It 



iDEFINE INTERRUPT ENTRY 

,SET FLAG TO SHOW INTERRUPT RECUvEQ 
iCLEAR FLAG TO SAY WE GOT INTERRUPT 
jEXPECTING STOP INTERRUPT? 
iBR IF y&S 



frlQKSTPiINTFUG A NQ l SET THE ERROR FLAG* 



TSVS - GLOBAL AREAS 

INTR - INTERRUPT HANDL 



MACRO MU13 Ol-FEB-84 17j02 



C6 



SEQ 067 



2190 
2191 

2192 
2193 



2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 

2211 
2212 
2213 
2214 
2215 
2216 



016056 
016056 
016056 
016056 



221/ 
2218 
2219 
2220 
2221 
2222 
2221 
2224 
2225 
2226 
2227 
2226 
2229 
2230 
2231 
2232 
2233 
2234 
3235. 



016060 
016062 
016062 
016064 
016070 
016074 

016076 
016100 
016100 
016104 
016106 
016112 
016114 
016120 
016122 
016126 
016130 
016132 
016134 
016136 
016140 
016142 
016144 



000002 



000401 

104422 
012746 
016500 
105700 

100420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



iSAVE REGISTERS, 

II: 

ENOSRV 
L 10026 j 

RTI 



MSG BUFFER, ETC. 



0110OO 
000002 



000001 
002116 
177772 

177756 



.SBTTL 
SUBROUTINE TO 
INPUTS: 

R5 
OUTPUTS! 

RO 

CARRY 



WAITFsi BR 

BREAK 
TRAP 
1$: MOV 
2${ MOV 
TSTB 



BMI 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RTS 



31: 

4$j 



WAITF • WAIT FOR SUBSYSTEM READY 
WAIT FOR THE SUBSYSTEM READY FLAG 

ADDRESS OF FIRST DEVICE REGISTER 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR REAOY 



If 

CtBRK 

•11000, (SP) 

TSSR(R5),R0 

RO 

31 

1 

•l.(PC)» 



LIDLY,(PC)» 



-6CPC) 

. -4 

-22CPC) 
. -20 
(SP) 
2$ 

4$ 

(SP)» 

PC 



I NOP l*€N SUPER FIXED 

I DO A SUPVSR BREAK FIRST. 

I25-APRIL-A3 REV B - 1100 MSEC TIMER 
jREAD THE TSSR REGISTER 

I TEST FOR READY BIT SET 

i EXIT ON STOP FLAG, 
I WAIT 100 USEC 



iREOUCE DiLAY COUNT 

iRETRY UNTIL TIMER EXPIRES 

I C • 0, CONTROLLER STILL RUNNING... 

I... OR HUNG-UP AFTER 300 MSEC. 

I C • 1, CONTROLLER IS STOPPED. 

iRESTORE STACK WITHOUT CHANGING CARRY ©IT 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT i 



R5 



ADDRESS OF CSR REGISTERS 



TSV3 Ul. 
CHKTSSR - 

2236 

2237 

223d 
2239 

2240 
2241. 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2.249 
2250 
2251 
2252 
2253 
22S4 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 



Al 



CK 



AREAS 

TSSR FOR 



W 



D6 



M1113 01-FEB-84 17:02 



SEQ 068 



2284 
2285 

2286 
2287 
2288 
2289 
2290 



016146 
016146 
016152 
016154 
016160 
016162 
016166 
016170 
016174 
016176 
016200 
016202 
016204 



016206 
016214 
016222 
016224 
016226 

016230 
016232 
016234 
016240 

016242 
016244 
016250 
016252 
016252 
016256 
016260 
016262 
016264 
016266 



004737 
103014 
004737 
103006 
032700 
001405 
032700 
001402 
000241 
000401 
000261 
000207 



012737 
012737 
005003 
000241 
005711 

020102 
001407 
062701 
000772 

005103 
012716 
000002 

012700 
104436 
005703 
001401 
000261 
000207 



016060 1 
015654' 
100000 
074000 



I OUTPUT 


« 






RO 


CONTENTS OF TSSR 




CARRY 


SET - OKAY 

CLR - NOT READY AMBIG 


CHKTSSR 


» 
« 






JSR 


PC.WAITF 




BCC 


20$ 




JSR 


PCCHKAMB 




BCC 


10$ 




BIT 


OSC,RO 




BEQ 


15$ 




BIT 


0<SCE!BIU!RMR!NXM>,RO 




BEQ 


15$ 


10$: 


CLC 






BR 


20$ 


151: 


SEC 




20* : 


RTS 


PC 



»WAIT FOR READY 

i BRANCH IF TIME OUT 

l TSSR AMBIGOUS? 

iBR IF YES 

l SPECIAL CONDITION SET? 

jBR IF NO 

i ANY ERROR BITS SET? 

i BR IF NO 

I SET rAILURE 

jSET SUCCESS 
iRETUNN TO CALLER 



.SBTTL XNXM 



CHECK FOR NONEXISTENT MEMORY 



016242' 000004 
000200 000006 



000002 

016252 
000004 



ROUTINE TO TEST FOR A NEXM IN THE RANGE C'U) THRU (R2). 
ON RETURN, IF »C" - 1. (Rl) » NEXM AODRESS. 
"C M ■ 0, ALL ADDRESSES OK. 



I TEST "C" ANO PROCEED. 



i SET BUSERR VECTOR. 

I FLAG. 

» CLEAR THE CARRY FOR NO NXM FQUNO 

I TEST THE ADDfiESS(ES). 

I IF ANY TRAP, CONTINUE AT 2$. 

iOTHERWISE. CONTINUE HERE. 

I BR IF FINISHED (NO NEXM'S), 

iSET NEXT AOOPESS... 

I . . .ANO CONTINUE. 

iGOT ONE, SET FLAG, ,. 

I... ANO DISMISS INTERRUPT... 
I,., AND GIVE BACK THE VECTOR. 



iCALL: 


MOV 


A0R1.R1 




MOV 


ADR2.R2 




JSR 


PC, 


NXM 




RETURN 


|T 


XNXM; 


MOV 




02$,&04 




MOV 




0PRI04.B06 




CLR 




R3 




CLC 






1$: 


TST 




(Rl) 




CMP 




R1.R2 




BEQ 




3$ 




ADD 




02, Rl 




BR 




1$ 


2$: 


COM 




R3 




MOV 




03$, (SP) 




RTI 






3$} 


CLRVEC 


04 




MOV 




04, RO 




TRAP 




C$CVEC 




TST 




R3 




BEQ 




. »4 




SEC 








RTS 




PC 



lOID WE CATCH 
jNO, "C" - 0, 
jYES, "C" • 1, 



ONE ?? 

SKIP NEXT. 
(Rl) - NEXM ADDR. 



E6 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 17:02 
XNXM - CHECK FOR NONEXISTENT MEMORY 



SEQ 069 



2291 

2292 

2293 

2294 

2295 

2296 

2297 

2296 

2299 

2300 

2301 

230? 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

231? 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 



016270 
016270 
016274 
016276 
016302 
016304 
016310 
016312 
016314 
016316 
016320 



016322 
016322 
016324 
016330 
016334 
016340 
016344 
016350 
01635? 
016356 



005737 
001006 
005737 
100403 
005337 
001002 
000241 
0004C1 
000261 
000207 



002170' 
002204* 
002216' 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 



003154' 
016570' 
005604' 
015754' 
002202 ' 

003114' 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 

I ♦ 

1 SUBROUTINE TO EXECUTE TEST ITERATIONS. 

j EXIT WITH "C" SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO. 

j LOOP COUNTER IS SET BY "BEGIN, TEST" MACRO. 

j CALL: LOOPTO ARG 



» ITERATIONS INHIBITED? 

I YES. 

i NO. 

I LOOPS DISALLOWED IN QUICK PASS, 

i BUMP LOOP COUNTER. 

tLOOP DISALLOWED, OR DONE. 

I LOOP ENABLED, 



.SBTTL TSTSETUP - PRINT TEST NAME ANO INIT ERROR COUNTS 

PRINT THE NUMBER ANO NAME OF EACH TEST AS WE GO ALONG, 

INCREMENT "TESTK" TO INOICATE THE NUMBER OF TESTS 

IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER ANO SIGNATURE EXTENSION FLAGS. 



TSTLOOP 


» » 






TST 


NOITS 




BNE 


1$ 




TST 


QVP 




BMi 


it 




DEC 


LOOPCNT 




BNE 


2* 


1$: 


CLC 






BR 


3$ 


2»: 


SEC 




3*; 


RTS 


PC 



INPUT : 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT: 



R5 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG, 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER, 
... AND MAKE IT A WORD OFFSET, 
DID STARTUP FIND THE DEVICE? 
BR IF YES 



TSTSETUP: : 




MOV 


RO, -CSP) 


CLR 


SIFLAG 


CLR 


ERRK 


CLR 


EXTA 


CLRd 


INTMA3K 


MOV 


UNITN.RO 


ASL 


RO 


TST 


NODEV 


BEQ 


4$ 



F6 



TSV3 - GLOBAL AREAS MACRO M1113 01 -FEB -84 17s 02 
TSTSETUP - PRINT TEST NAME ANO INIT ERROR COUNTS 



SEQ 070 



2348 
2349 
2350 



2351 
2352 
2353 



2354 

2355 



2356 

2357 
2358 
2359 

2360 
2361 
2362 
2363 



2364 
2365 



2366 

2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 

2378 
2379 
2380 



016360 
016362 
016370 
016370 
016372 
016374 
016376 
016400 
016402 
016410 
016410 
016412 
016414 
016416 
016420 
016426 
016426 
016432 
016434 
016434 
016436 

016440 
01644C 
016442 
016446 
016450 
016452 
016452 
016454 
016460 
016464 
016466 
016470 
016474 
016500 
016500 
016504 
016506 
016510 
016514 
016516 



016532 
016532 
016534 
016540 
016542 
016542 
016546 
016552 



100010 

052760 160000 003176' 

104455 

000001 

003734' 

005550' 

000407 

052760 160001 003176' 3$ : 

104455 
000002 
004331' 

000000 

012737 177777 003112' 2*: 

013700 002202' 
104451 

104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 
104417 
062706 
005237 

013700 
104441 
005726 
013705 
000207 
045 



4$; 



001000 



016516 
000002 



000006 
002214' 

002212* 



002206* 
123 



1*: 

5i: 

045 TNAM 



BPL 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

8IS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

BR 

RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 



3$ i BR IF NOT IDLE 

0160000, ERTABL(RO) j FLAG ERROR IN THE ERROR TABLE 

1,NXR,NXRERR » NO DEVICE WERE -- PRINT IT 

CIERDF 

1 

NXR 

NXRERR 

2$ 

0160001 .ERTABL(RO) j FLAG ERROR IN THE ERROR TABLE 



2.N0INIT 

CIERDF 

2 

NOINIT 



0-l.OUFLG 

UNITN 

UNITN ,R0 

CIDODU 

CIDCLN 
51 

RO 

CIRFLA 

OPNT.RO 

II 

(SP^RO 

OTNAH.RO 

RO.-(SP) 

OTNAM, -(SP) 

02.-CSP) 

SP.RO 

CIPNTF 

06. SP 

TSTCNT 

IPRI 

IPRI.RO 

CISPRI 

CSP)* 

CSRADDR.R5 

PC 

**S*T*A Test' 



j DEVICE NOT IDLE 



; DROP THE UNIT 



; ABORT THE PASS 



i GET THE OPERATOR FLAGS. 

i PRINT THE TEST NUMBERS? 

{ BR IF NO 

iGET THE ID MESSAGE 

lOISPLAY THE TEST ID 



j BUMP TEST COUNTER. 
jPRIORITY THAT OF DEVICE 



jFIX UP THE STACK 

I ADDRESS OF TSV REGISTERS ON UNIBUS 



.SBTTl. TSTEND 



PRINT ERRORS RECEIVED 



104421 

0300,l7 020000 

001412 

013746 016570 

012746 016572 

012746 000002 



i AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
t IF NORMAL ERROR REPORTING IS DISABLED CFLAjIER). 

TSTEND; 



RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


RO.OIEP 


BEQ 


11 


PRINTF 


OESUM.ERRK 


MOV 


ERRK.-(SP) 


MOV 


OESUM, (SP) 


MOV 


02, -( rr >) 



i BR IF "IER" NOT SET, 
I PRINT ERROR COUNT. 



TSV3 - 
TSTEND 



GLOBAL AREAS MACRO M1113 
- PRINT ERRORS RECEIVED 



01-KEB-84 17;02 



G6 



SEQ 071 



2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 

2414 

2415 
2416 



016556 
016560 
016562 
016566 

016570 
016572 
016611 



010600 

104417 

062706 000006 

000207 



2418 



2419 

2420 
2421 

2422 
24?3 
2424 
2425 
2426 



016656 
016662 
016664 
016670 
016672 
016676 
016700 
016704 
016706 
016710 
016712 

016714 
016716 
016722 
016724 
016730 
016734 
016740 
016742 
016750 
016752 
016752 
016754 
016760 
016762 
016770 
016770 
016772 
016774 
016776 
017000 
017000 
017004 
017006 
017006 
017010 
017012 



000000 
045 
105 



101 
122 



1$: 

ERRK* 
040 ESUMj 
122 EMAXDU: 



MOV 'JP.RO 

TRAP CIPNTF 

ADD 06.SP 

RTS PC 

, LOCAL ERROR COUNT, 

.ASCIZ /KA fiDKA ERRORS/ 

.ASCIZ /ERROR LIMIT REACHED -- DROPPING UNIT/ 

.EVEN 



016570' 
002202* 
003176' 
007777 



005237 
010046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
00020/ 



010046 

013700 002202* 

006300 

016000 003176' 

042700 170000 

020037 002174' 

103004 

023737 016570* 002172* 

103417 

104421 

032700 000040 

001013 

012737 177777 003112* 

104455 
000004 

016611' 

000000 

013700 002202' 
104451 

104444 
012600 
000207 



, SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 

i * 

t ROUTINES TO INCREMENT LOCAL ERROR COUNT ANO CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

... ANO MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER, 

SAVE RO 

GET UNIT NUMBER 

... ANO MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO -- DROP THE UNIT 



i - 






INCERK: 


INC 


ERRK | 




MOV 


RO.-CSP) j 




MOV 


UNITN.RO i 




ASL 


RO j 




ADD 


♦ERTABL.RO i 




INC 


CRO) j 




BIT 


*7777, (RO) i 




BN6 


1* 1 




DEC 


CRO) • 


1$: 


MOV 


(SP)*,RO j 




RTS 


PC i 


CKEMAX: 


MOV 


RO.-CSP) i 




MOV 


UNITN.RO i 




ASL 


RO i 




MOV 


ERTABLCRO).RO i 




BIC 


0170000.RO i 




CMP 


RO.GERRMAX , 




BHIS 


It i 




CMP 


ERRK.LERRMAX , 




BLO 


2% i 


1?: 


RFLAGS 


RO i 




TRAP 


CtRFLA 




DIT 


#IDU,RO j 




BNE 


2t i 




MOV 


•-1.DUFLG i 




ERRDF 


4, EMAXDU 




TRAP 


CIERDF 




.WORD 


4 




.WORD 


EMAXDU 




.WORD 







DOOU 


UNITN 




MOV 


UNITN.RO 




TRAP 


CIDOOU 




DOCLN 






TRAP 


C*DCLN 


2$: 


MOV 


(SP)*.RO j 




RTS 


PC , 



i RESTORE RO 

j RETURN TO CALLER 

.SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPEr 

* CHECK IF UNIT SHOULD BE DROPPED 

I - 



-16 



TSV3 - GLOBAL AREAS MACRO M1U3 
CKDROP - CHECK IF UNIT SHOULD BE DRO 



^FEB-84 17:02 



SEQ 072 



2427 
2428 
2429 

2430 
2431 
2432 
2433 
2434 



2431 

2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 

24 :i5 
24 -i6 
2457 
2458 
^459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
24 70 
2471 
24 72 
2473 
24 74 
2475 
24 76 
2477 
24 78 
24 79 



017014 
017016 
017026 
017026 
017030 
017034 
017036 
017040 
017046 
017046 
017052 
017054 
017054 
017056 
017060 



017062 
017062 
017066 



017070 
017074 
017076 
017104 



017106 
017112 
017114 
017116 
017120 
017126 



010046 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



0O4737 
000207 



005737 
001403 
012737 
000207 



005737 
001405 
000240 
000240 
012737 
000207 



000040 

177777 
002202 



003112 



015604 



003132 
000001 



177572 



003132 



OOOOOO 177572 



CKDROP; 


MOV RO.-CSP) 




FORCERROR lt.NOTSSR 




RFLAGS RO 




TRAP CIRFLA 




BIT GIDU.RO 




BNE 1$ 




MOV (SP).RO 




MOV 4-L.UUFLG 




DODU UNITN 




MOV UNITN, RO 




TRAP CI DODU 




DOCLN j 




TRAP C$DCLN 


1$: 


MOV (SP)*,RO 




RTS PC 



j ABORT THE PASS 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 

» SUBROUTINE - DETERMINE CONFIGURATION OF TSU05 SYSTEM. 

CONFIG: 

JSR PC.SOFINIT 
RTS PC 

.SBTTL KTON.KTOFF 



t SUBROUTINE - ENABLE MEM MGT . 



KTON: 
1*: 



TST 
BEQ 
MOV 
RTS 



KTFLG 
It 

♦l.SRO 
PC 



- ENABLE/DISABLE MEMORY MANAGEMENT 



j GOT KT? 

I NO. 

I YES. ENABLE KT11. 



j SUBROUTINE - DISABLE MEM MGT. 



KTOFFj 



II: 



i GOT KT11? 
j NO. 



I DISABLE KT 
.SBTTL SETMAP - SETUP PAR6 MAPPING 



TST 


KTFLG 


BEQ 


1$ 


NOP 




NOP 




MOV 


OO.SRO 


RTS 


PC 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 
Rl 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



16 



005737 
001433 
010102 
000006 



042701 
020137 
103011 
010137 

062702 
010200 
000261 

000401 
000241 
000207 



003132 



TSV3 - GLOBAL AREAS MACRO M1113 
SETMAP - SETUP PAR6 MAPPING 



2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 



01-FEB-84 17:02 



SEQ 073 



017130 
017130 
017134 
017140 
017142 



017174 
017200 
017204 
017206 
017212 
017216 
017222 
017224 
017226 
017230 
017232 



OUTPUTS; 



SETMAP; 



000177 
003132' 

172354 
160000 

140000 



10$: 
1.5$: 



RO 
CARRY 



SAVREG 

TST 

BEG 

MOV 

,REPT 

ASR 

ROR 

.ENOR 

BIC 

CMP 

BHIS 

MOV 

BIC 

ADD 

MOV 

SEC 

BR 

CLC 

RTS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 

10$ 

R1.R2 

6 

RO 

Rl 

0177, Rl 
Rl, KTFLG 
10$ 

R1,WH<IPAR6 
0160000, R2 
0140000, R2 
R2.R0 

15$ 

PC 



j SAVE R1-R4 UNTIL NEXT RETURN 

I SYSTEM HAVE ABOVE 28K? 

I BR IF NO 

I SAVE LOW ORDER BITS 

j CONVERT WORD ADDRESS TO 32W BLOCKS 
jMAKE IT DOUBLE PRECISION 

t ALINE FOR LOWER 4K BOUNOARY 
jHIGHER THAN EXISTING MEMORY? 
»BR IF YES 

I SETUP MAPPING REGISTER PAR6 
» SETUP DISPLACEMENT IN PAGE 
jADD IN PAR6 BIAS 
j RETURN IN RO 
;SET SUCCESS 

I 

l SET FAILURE 

tRETURN 



.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 



2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
r-:534 
2535 
2536 



017234 
017234 
017240 
017244 
017246 
017252 
017256 
017260 
017262 
017264 
017270 
017272 
017276 



FILL MEMORY WITH A BACKGROUND PATTERN 



INPUTS: 



RO - BMCKGROUNO PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28.C 



0O4737 
010003 
013701 

013702 
010321 
005302 
003375 
005737 
001502 
004 737 
005000 



017106 

003124 
003126 



003132' 
017070' 



i OUTPUTS: 




! NONE 




FILLMEM: 




SAVREG 




JSR 


PC.KTOFF 


MOV 


R0.R3 


MOV 


FREE.R1 


MOV 


FRESIZ.R2 


10$: MOV 


R3.CR1)* 


DEC 


R2 


BGT 


10$ 


TST 


KTFLG 


BEQ 


55$ 


JSR 


PCKTON 


CLR 


RO 



SAVE Rl R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K . 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO, GET OUT. 

YES. ENABLE KT . 
HIGH ORDER ADDRESS START 



J6 



TSV3 - GLOBAL AREAS MACRO MU13 01-FEB-84 17:02 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 



SEQ 074 



2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

£593 



017300 



017350 
017354 
017356 
017362 
017364 
017370 
017376 
01.7402 
017406 
017412 
017414 
017420 
017422 
017426 
017432 
017436 
017440 
017444 
017446 
017454 
017456 
017460 
017466 
017472 
017476 



013701 003152' 
000006 



004737 
010320 
020027 
103774 
162700 
062737 
013705 
042705 
023705 
001427 
005737 
001407 
013704 
042704 
022704 
001415 
005737 
001410 
023727 
103001 
000403 
012737 
000137 
004737 
000207 



017130' 

160000 

020000 

000200 172354 

003132* 

170000 

172354 

003144' 

177572 
177761 
000016 

003146' 

172354 007600 



000020 172516 
017354' 

017106' 



30$: 



35$; 



40$ 
45$ 
50$ 
55$ 



MOV 

.REPT 

CLC 

ROL 

ROL 

,ENDR 

JSR 

MOV 

CMP 

BLO 

sue 

ADD 

MOV 

BIC 

CMP 

BEQ 

TST 

BEQ 

MOV 

BIC 

CMP 

BEQ 

TST 

BEQ 

CMP 

BHIS 

BR 

MOV 

vIMP 

JSR 



PST32W.R1 
6 

Rl 

RO 

PC.SETMAP 

R3,(R0)* 

RO, 0160000 

30$ 

♦20000, RO 

0200.B0KIPAR6 

KTFLG,R5 

0170000, R5 

BOKIPAR6.R5 

50$ 

T23A 

35$ 

SR0.R4 

0177761.R4 

016, R4 

50$ 

T23B 

45$ 

BOK IP AR6, 07600 

40$ 

45$ 

020, SR3 

30$ 

PC.KTOFF 

PC 



iGET >28K START ADDRESS (IN 32W BLOCKS) 

CLEAR C BIT 

CONVERT BLOCKS TO WORDS 

MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >26K ADDRESS 
ENO OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PARb MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
GET VALUE FROM MEMORY SIZER 
ONLY 18 BITS PASS 
ENO OF MEMORY? 
BR IF YES 
PROCESSOR TYPE A 
NO KEEP GOING 
GET SRO CONTLNTS 
CLEAR ALL BUT PAGE NUMBER 
SEE IF PAGE 7 
EXIT IF THERE 
PROCESSOR TYPE B 
NO KEEP GOING 
REACHED 18 BITS? 
YES 

NO KEEP GOING 
SET MMU RELOCATION 
KEEP GOING ON ETC. 
DISABLE KT. 



.SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 

COMPARE MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO ■ BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG ■ SET TO HIGHEST MEMORY LOCATION IF > 28K, 



OUTPUTS: 



CARRY - SET IF NO ERROR 
CARRY - CLR IF ERROR 



IMPLICIT OUTPUTS: 



017500 
017500 
017504 



CMPMEM j 



010003 



ERRHI 
ERRLO 
EXPO 
RECV 



SAVREG 
MOV 



- ERROR HIGH ADDRESS 

- ERROR LOW ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



R0.R3 



»SAVE Rl R5 UNTIL NEXT RETURN 
tCOPY TES1 PATTERN 



I<6 



TSV3 - GLOBAL AREAS 


MACRO M1113 01 


-FEB-84 


17:02 




CMPMEM 


- COMPARE MEMORY TO BACKGROUND 


PATTERN 






2594 


017506 


004737 


017106' 




JSR 


PC. K TOFF » 


2595 


017512 


013701 


003124' 




MOV 


FREE.R1 j 


2596 


017516 


013702 


003126' 




MOV 


FRESIZ.R2 i 


2597 


017522 


020311 




10$: 


CMP 


R3.CR1) i 


2598 


017524 


001411 






BEQ 


15$ j 


2599 


017526 


010137 


00c240 r 




MOV 


R1,ERPL0 i 


2600 


017532 


005037 


002236' 




CLR 


ERRHI j 


2601 


017536 


010337 


002232 1 




MOV 


R3,EXPD » 


2602 


017542 


011137 


002234' 




MOV 


(Rl).RECV i 


2603 


017546 


0004 74 






BR 


50$ , 


2604 


017550 


005721 




15$ j 


TST 


CR1)» j 


2605 


01755? 


005302 






DEC 


R2 j 


2606 


017554 


003362 






BGT 


10$ i 


2607 


017556 


005737 


003132' 




TST 


KTFLG i 


2608 


017562 


0014 72 






BEQ 


55$ , 


2609 


017564 


004737 


017070' 




JSR 


r>C,KT0N j 


2610 


017570 


005000 






CLR 


RO i 


2611 


017572 


013701 


003152' 




MOV 


PST32W.R1 i 


2612 




000006 






.REPT 


6 


2613 










ROl. 


Rl i 


2614 










ROL 


RO i 


2615 










.ENDR 




2616 


017626 


042701 


000177 




BIC 


♦177, Rl i 


2617 


017632 


010046 






MOV 


RO.-CSP) i 


2618 


017634 


010146 






MOV 


Rl.-CSP) i 


2619 


017636 


004737 


017130' 




JSR 


PC.SETMAP , 


2620 


017642 


010004 






MOV 


R0,R4 i 


2621 


017644 


012601 






MOV 


(SP)t # Rl » 


2622 


017646 


012600 






MOV 


(SP)*,RO i 


2623 


017650 


020314 




30$: 


CMP 


R3,CR4) i 


2624 


017652 


001411 






BEQ 


32$ i 


2625 


017654 


010037 


002236' 




MOV 


RO, ERRHI j 


2626 


017660 


010137 


002240' 




MOV 


Ri.ERRLO i 


2627 


017664 


010337 


002232' 




MOV 


R3.EXPD » 


2628 


017670 


011437 


002234' 




MOV 


(R4),RECV i 


2629 


017674 


000421 






BR 


50$ i 


2630 


017676 


062701 


000002 


32* : 


ADO 


*2,R1 i 


2631 


017702 


005500 






ADC 


RO i 


2632 


017704 


062704 


000002 




ADO 


*2,R4 ; 


2633 


017710 


020427 


160000 




CMP 


R4 , $160000 i 


2634 


017714 


103755 






BLO 


30$ i 


2635 


017716 


162704 


020000 




SUB 


#20000, R4 , 


2636 


017722 


062737 


000200 172354 




ADD 


0200,S*KIPAR6 i 


2637 


017730 


0237*7 


172354 003132' 




CMP 


Q*KIPAR6, KTFLG » 


2638 


017736 


101744 






BLOS 


30$ , 


2639 


017740 


004737 


017106' 


50$: 


JSR 


PC, K TOFF j 


2640 


017744 


000241 






CLC 




2641 


017746 


000403 






BR 


60$ j 


2642 


017750 


004 737 


017106' 


55$: 


JSR 


PC.KTOFF i 


2643 


017754 


000261 






SEC 




2644 


017756 


000207 




60$: 


RTS 


PC 


2645 














2646 










.SBTTL 


REGSAV - SAVE Rl 


264 7 








i ♦ 






2648 








J 






2649 








{ROUTINE TO 




2650 








j SAVE 


Rl THROUGH R5 ON THE STACK 



SEQ 075 



DISABLE KT. 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K . 

FREE SPACE LOCATION EQUAL TO EXPO? 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPO FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT . 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS C IN 32W BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNOARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPO? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 

SAVE LOW ORDER IN ERROR 

SAVE EXPO FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 

UPDATE PAR FORMAT ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 

POINT TO NEXT 4K BLOCK >C.J<. 

ENO OF MEMORY? 

BR IF NO 

TURN OFF MEMORY MAPPING 

SET FAILURE 

TURN OFF MEMORY MAPPING 
SET SUCCESS 



L6 



TSV3 - GLOBAL AREAS MACRO M1113 
REGSAV - SAVE R1-R5 ON STACK 



Ol-FEB-84 17:02 



SEQ 076 



2651 






» 






2652 






{CALLING SEQUENCE: 


2653 






J 






2654 






} 


JSR 


R5, REGSAV 


2655 






i 






2656 






j THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 


2657 






{THE CALLING ROUTINE, AT THE END Of* THE CALLING ROUTINE, 


2658 






j THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


2659 






{REGISTERS, 




2660 






i 






2661 






{THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 


2662 






{CALLED 


VIA A JSR PC INSTRUCTION 


2663 






} 






2664 






{ - 






2665 












2666 


017760 




REGSAV: 






2667 


017760 


010446 




MOV 


R4.-CSP) 


2668 


017762 


010346 




MOV 


R3.-CSP) 


2669 


017764 


01C246 




MOV 


R2.--CSP) 


2670 


017766 


U10146 




MOV 


Rl.-CSP) 


2671 


017770 


010546 




MOV 


R5.-CSP) 


26 72 


017772 


016605 000012 




MOV 


10,(SP).R5 


2673 


017776 


004736 




JSR 


PC.S(SP)* 


2674 


020000 


012601 




MOV 


CSP)»,R1 


2675 


020002 


012602 




MOV 


CSP)*,R2 


2676 


020004 


012603 




MOV 


CSP)*,R3 


26 7/ 


020006 


012604 




MOV 


(SP)*.R4 


2678 


020010 


012605 




MOV 


CSP)*,R5 


2679 


020012 


000207 




RTS 


PC 


2680 












2681 








.SBTTL 


GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


2682 






i ♦ 






2683 












2684 






{ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


2685 












2686 






5 INPUTS 


• 




2687 












2688 








NONE, 




2689 












2690 






| OUTPUTS: 




2691 












2692 








HO 


OCTAL NUMBER FROM THE OPERATOR 


2693 












2694 






{CALLING SEQUENCE: 


2695 












2696 








JSR 


PC, GETPAT 


269/ 












2698 












2699 












2700 


020014 




SETPATi 


• 




2701 


020014 






SAVREG 


{SAVE THE GENERAL REGISTERS 


2702 


020020 




1$: 


GMANID 


DAT ASC.PATDAT, 0,377 ,0,377, NO 




020020 


104443 




TRAP 


CIGMAN 




020022 


000406 




BR 


10000$ 




020024 


020050' 




.WORD 


PATDAT 




020026 


000022 




.WORD 


T$C0DE 




020030 


020052' 




.WORD 


DATASC 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17:02 
GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



Mb 



SEQ 077 





020032 


000377 




020034 


000000 




020036 


000377 




020040 




2703 


020040 






020040 


103367 


2704 


020042 


013700 020050 


2705 


020046 


000207 


2706 






2707 






2708 






2709 






2710 






2711 


020050 


000000 


2712 


020052 


105 116 


2713 






2714 






2715 






2716 






2717 






2718 






2719 






2720 






2721 






2722 






2723 






2724 






2725 






2726 






2727 






2728 






2729 






2730 






2731 






2732 


020076 




2733 


020076 




2734 


020102 


010002 


2735 


020104 


010203 


2736 


020106 


005713 


273 7 


020110 


001412 


2/38 


020112 






020112 


012346 




020114 


012746 020262 




020120 


012746 000002 




020124 


010600 




020126 


104417 




020130 


062706 000006 


2739 


020134 


000764 


2740 


020136 






020136 


104443 




020140 


000406 




020142 


020316' 




020144 


000042 




020146 


020267' 




020150 


177777 




020152 


000000 




020154 


177777 



10000$ 



.WORD 

.WORD 
.WORD 



377 

TILOLIM 
T$HILIM 



BNCOMPLETE 1$ 
BCC 1$ 
MOV PATDAT.RO 
RTS PC 



I RETRY IF ERROR 

iDATA PATTERN FROM OPERATOR 
j RETURN TO CALLER 



LOCAL DATA AREA 



PATDAT: .WORD .TEMPORARY STORAGE FOR DATA 

124 DATASC: .ASCIZ 'ENTER DATA PATTERN' 
.EVEN 

.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 

i * 

j ROUTINE TO ISSUE A MENU AND GET 
:TH6 OPERATOR'S RESPONSE. 

J 



INPUTS: 

RO 
Rl 

OUTPUTS: 

RO 



ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



GETSEL 



1$ 
2$ 



3$ 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

GMANID 

TRAP 

BR 

.WORD 

.WORD 

.WORO 

.WORD 

.WORD 

.WORD 



R0.R2 
R2.R3 
(R3) 
3$ 

*SELASC,(R3)* 

CR3)>, -CSP) 

OSELASC.-CSP) 

02,-CSP) 

SP.RO 

CtPNTF 

06, SP 

2$ 

MENASC.MENRES,D,-l t O,-l,NQ 

CIGMAN 

10001$ 

MENRES 

T I CODE 

MENASC 

-I 

TILOLIM 

TJKILIM 



f SAVE GENERAL REGISTERS 

I SAVE THE MENl ADDRESS 

: START OF MENU STRING 

I END OF ASCII ? 

{BRANCH IF ALL uINES DISPLAYED 

jDISPLAY THE MENU 



N6 
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GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



SEQ 078 



2741 

2742 
2743 
2744 
2745 



2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
275? 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
27*9 
27 70 
2771 
2772 
27 ?S 
2774 
2775 
2776 
2777 
2778 

2779 

2780 



020156 
020156 
020156 
020160 
020164 
020166 
020170 
020170 
020174 
020200 
020202 
020204 
020210 
020212 
020214 
020262 
020267 



2781 
2782 
2783 



020320 
020320 
020324 
020324 
020326 
020326 
020330 
020330 
020334 
020340 
020342 
020344 
020350 
020352 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020316 000000 



104450 

103411 

012746 
012746 
010600 
104417 
062 706 
000241 
000207 



10001$ j 



BNCOMPLETE 



1$ 



020316' 



020214 
000001 



000004 



116 
116 
156 



{RETRY IF ERROR 

jGET THE OPERATOR'S REPLY 
{COMPARE TO MAXIMUM ALLOWED 
j BRANCH IF OK 
} DISPLAY ERROR MESSAGE 



045 
045 
164 



5$! 

MC NERR 
SELASC 
MENASC 

MENRES: 



BCC 1$ 

MOV MENRES, RO 

CMP R0.R1 

BLOS 5* 

PRINTF 4MENERR 

MOV OMENERR.-(SP) 

MOV 41,-CSP) 

MOV SP.R0 

TRAP CJPNTF 

ADD #4 . SP 

BR II {RETRY 

RTS PC {RETURN TO CALLER 

.ASCIZ '*N*A *** Menu Selection Too Large +**' 

.ASCIZ '*N*T' 

.ASCIZ 'Enter Menu Selection: ' 

.EVEN 

. WORD 

.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST ^OR MANUAL INTERVENTION LEGALITY. 
INPUT; 



NONE. 



OUTPUT: 



CARRY 



SIDE EFFECTS: 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT Ti.Sf IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED, 



J - 



020354 
000001 



000004 



CHKMAN: : 




SAVREG 




MANUAL 




TRAP 


CJMANI 


BCOMPLETE 1$ 


BCS 


1 $ 


PRINTF 


<>NOMAN 


MOV 


WOMAN, (SP) 


MOV 


frl, -CSP) 


MOV 


SP.R0 


TRAP 


CtPNTF 


ADO 


44, SP 


CLC 




1$: RTS 


PC 



{SAVE THE REGISTERS 

{SEE IF MANUAL INTERVENTION OK 

{BRANCH IF ALLOWED 

{PRINT THE WARNING MESSAGE 



-.Clear carry for error 

{RETURN 



B7 



TSV5 - GLOBAL AREAS 
CHKMAN - CHECK MANUAL 



2784 

2785 

2736 
2787 
2788 
2789 
2790 
2791 

2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
282? 
2823 
2824 
2825 
2826 
282 7 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2859 



020354 



020450 
020450 
020452 
020456 
020464 
0204 70 
0204 76 
020502 
020510 
020512 
020514 
020520 
020524 
020530 
020534 



020536 
02053* 
020542 
020546 
020554 
020556 
020564 
020566 
020572 
020600 
020604 
020606 
020614 
02O622 
020626 
020630 
020634 
020642 
020644 
020650 
02O654 
020656 
020662 

020664 
Q2Q67Q 



045 



104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 



MACRO MU13 Ol-FEB-84 17i02 
INTERVENTION I F.GALITY 



005037 
005037 
023727 
101453 
023727 
101447 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
01270.1 
012761 
010021 
C62700 
020027 
001367 
012741 
000410 

012716 
Q000Q2 



SEQ 079 



116 



003124 
000002 
003126 
000004 
002012 
000007 



003124' 
003126' 
000002 
003130' 



003132' 
003134' 
002120' 

002120' 

000004 
020664' 

177572 

002120' 

000177 

000004 

172340 
077406 

000200 
002000 

177600 



02Q7QO' 



045 NOMANi 



.ASCIZ 
.even 



•INrfA *** Manual Intervention not Allowed - Test Aborted *** 



.SBTTL ENVIRN 



SETUP TREE DIAGNOSTIC SPACE 



\ SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS, 



003124 
003126 

003126 



ENVIRN: MEMORY 
TRAP 
MOV 
ADD 
MOV 
SUB 
MOV 

10$ J SUB 
DEC 
BNE 
MOV 
ADD 
SUB 
MOV 

40*; RTS 



RO 

CIMEM 

RO.FREE 

#2 ♦ FREE 

(RO).FRESIZ 

04,FRESIZ 

L$UNIT,R2 

07.FRESIZ 

R2 

10$ 

FREE.RO 

FRESIZ.RO 

02, RO 

RO.FREEHI 

PC 



I GET 1ST FREE ADDRESS... 

I.. .AND WORD COUNT. 

t GET NUMBER Of UNITS 

l TAKE AWAY 7 WORDS PER UNIT 



iGET FIRST FREE ADDRESS 
iPOINT TO LAST FREE ADDRESS 
i BACKUP 1 WORD 
I STORE LAST FREE ADDRESS 
t RE TURN 



.SBTTL KTINIT 
ROUTING TO INIT KT-11 



SETUP KT11 MEMORY MANAGEMENT REGISTERS 



KTINITj 



001577 
001777 

000004 



003132' 
003132' 



177740 1$: 



2*1 



CLR 
CLR 

CMP 

BLOS 

CMP 

BLOS 

MOV 

MOV 

TST 

NOP 

MOV 

BIC 

MOV 

CLR 

MOV 

MOV 

MOV 

ADD 

CMP 

BNE 

MOV 

BR 

MOV 

HTI 



KTFLG 

KTENABLE 

LIHIME, 01577 

9$ 

L$HIM£, 01777 

9$ 

B#€RRVEC.RO 

02$,»0€RRVEC 

BOSRO 

L$HIME. KTFLG 

#177, KTFLG 

R0.80ERRVEC 

RO 

♦KIPAR0.R1 

077406, -40CR1) 

R0,(R1)» 

•200, RO 

RO , 02000 

1$ 

♦177600, -(Ri) 

9$ 



T IT >28K MEMORY FLAG 

A NIT TEST >28K FLAG 

GOT ENOUGH MEMORY (>28K)7 

NO. 

GOT ENOUGH MEMORY (>32K)? 

NO. 

SAVE OLD ERR VEC PTR, 

SET ERR VEC PTR. 

GOT KT11? 

(TRAP IF NO). 
YES. SET KT FLAG. 

RESTORE OLD ERR VEC PTR, 

RO - AR DATA. 

Rl • KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY "4K", 

AT "I/O"? 

NO. 

VES. SET KTPAR7 FOR I/O, 



SET LJP RETURN 

RTI TO NEXT LOCATION 



iffof ^TftuFlfli hem^'M^en? 1 ^?^^ 7 ' 02 



C7 



SEQ 080 



2840 

2841 

2842 

2843 

2844 

2845 

2846 

284 7 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

285/ 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2674 

2875 

2876 

28/7 

2878 

2879 

2880 

2881 

2fc82 

2884 

2886 

288 7 
2088 
2889 
2890 
289* 
2892 
2893 
2894 
2895 
2896 

289 7 

2898 



020672 
020676 



012716 
000002 



020704 
020704 
020710 
020716 
020724 
020726 
020732 



020734 

020734 
020740 
020742 
020750 
020756 
020764 
020772 
020776 
021002 



021004 

021010 
021012 
021014 
021016 



021020 
021022 
02X024 



013700 
012737 
042737 
000240 
010037 
000207 



005737 
001020 
012737 
012737 
012737 
012737 
012704 
004737 
000207 



020726 



020700 010037 000004 



00O.XX) 
000000 
000000 

000000 



000000 
OOOOCj 
000000 



000004 

020672' 000004 
000001 170200 

000004 



3'{ 

6$; 
9*i 

10$ J 



MOV 
RTI 

MOV 



MOV 
MOV 
BIC 
NOP 
MOV 
RTS 



oioi.csp) 



RO,Q*€RRVEC 



Se€RRVEC,RO 
♦3$.8*ERRVEC 

*BIT0,&4>HMR0 

RO.QOERRVEC 
PC 



I SET UP RETURN 

j RTI TO NEXT LOCATION 

I RESTORE OLD ERR VEC PTR, 



I SAVE OLD ERR VEC PTR. 

I SET ERR VEC PTR, 

j BE SURE UNIBUS MAP IS OFF 

; RESET VECTOR BACK TO ERROR POINTER 



SUBROUTINE TO SET EXTENDED FEAHHES SWITCH 

Requires that SOFINIY and WRTCHR have been done previous to call 



INPUTS: 

R5 
OUTPUTS: 

The Extended Features Switch is set, 



CURRENT UNIT NUMBER 



INVERT: j 



002226' 

100206 

021020' 

OC0006 

100010 

021010 

010472' 



021010' 
021012' 
021016' 

021020' 



lit 



TST EXTFEA 

BNE II 

MOV e 100206. CMOPKT 

MOV fWSMBK, CMOPKT* 2 

MOV *6.1MDPKT»6 

MOV «100010,WSM8K 

MOV eCMOPKT.R* 

JSR PC, WRTCHR 

RTS PC 



COMMAND PACKET, 

,BLKB 10-<, -TSV2£7> 



IS SWITCH SET? 

YES, EXIT STAGE RIGHT»(or the next one outa town!) 

WRT SUB-StS MEM CMO 

MSG BUF AOOR 

BYTE COUNT 

INVERT THE SWITCH 

SET CMOPKT INTO R4 

DO IT 

RETURN 



CMOPKT: : 






, l^T WORD IS TS05 COMMAND. 

l2N0 WORD IS THE BUFFER LOW ADDRESS, 

j 3RD WOPD IS THE BUFFER HIGH ADORESS . 

j4TH WORD IS THE BYTE/RECORD/FILE COUNT, 



WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK, 



WSMQKt 







♦ EVEN 



;1ST WORD.'; SEL 
j?NO WORD: : SEL 2 
j 3RD WORD i J SEL 4 



D7 



tf&T ^"MWtWi MEmMaR/^E^rEESs?^ 7 ' 02 



SEQ 081 



2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2906 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2933 
2939 
2940 
2941 
2942 



2943 
2944 
2945 
2946 

294 7 
2948 
2949 
2950 



021026 

021026 
021032 
021036 
021042 
021046 

021054 
021056 
021062 
021064 
021072 
021074 
021100 
021102 
021106 
021110 
021116 
021120 
021126 
021130 
021134 
021136 
021144 
021146 
021152 
021160 
021166 
021170 
021174 
021176 
021200 
021200 
021204 
021210 
021212 
021214 
021220 



005037 
005037 
005037 
032737 

001050 
005737 
001407 
023727 
103406 
004737 
000427 
005737 
001413 
023727 
101027 
023727 
103403 
004737 
000411 
023727 
103414 
0O4737 
062737 
032737 
001014 
005237 
000411 
000410 

012746 
012746 
010600 
104417 
062706 
000207 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 



INPUTS: 
OUTPUTS; 

Th« NXMFLG is «*t if w# can Ct»t . 

Th« NXMLO *r\d NXMHI addre«o«« or* setup. 



MEMCK; j 



003136' 
003140' 
003142' 
170000 002120 1 



003146' 

002120* 007777 

021222' 

003144' i$ : 

002120' 005777 2* J 

002120' 003777 

021222' 

002120* 001577 4$: 

021222' 

000077 003142' 

177774 003142' 13$: 



003136' 



005454 
000001 



000004 



141* 



15$: 



SAVREG 

CLR NXMFLG 

CLR NXMLO 

CLR NXMHI 

BIT 01 70000 ,L$HIME 

BNE 14$ 

TST T25B 

BEQ 1$ 

CMP L$HIME, 07777 

BLO 2$ 

J. C R PC.NXhTST 

BR 13$ 

TST T23A 

BEQ 4$ 

CMP L$HIME, 05777 

BHI 14$ 

CMP L$HIME, 03777 

BLO 4$ 

JSR PC.NXMTST 

BR 13$ 

CMP L$MIME, 01577 

BLO 14$ 

JSR PC.NXMTST 

ADO 077.NXMMI 

BIT 0177774, NXMHI 

BNE 15$ 

INC NXMFLG 

BR 15$ 

BR 15$ 

PRINTF ONOMEH 

MOV 0N0MEM,C5P) 

MOV 01, (SP) 

MOV SP.RO 

TRAP C$PNTF 

ADD 04, SP 

RTS PC 



SAVE THE REGISTERS 

CLEAR THE FLAG 

CLEAR THE TEST ADDRESS LO 

CLEAR THE TEST ADDRESS HI 

CHECK FOR MORE THAN IB BITS INDICATED 

FROM THE SUPERVISOR 

BR, IF MAP BOX ETC. 

IS IT A PROCESSOR TYPE B? 

NO 

GREATER THAN 128K 

NO 
SETUP THE ADDRESS 
SET THE FLAG AND EXIT 
IS IT A PROCESSOR TYPE A? 
NO 

GREATER THAN 96K 
YES.23A/23B WITH 128K MEMORY 
GREATER THAN 64K BUT LESS THAN 92K? 
NO. CHECK 24K 
SETUP THE ADORESS 
SET THE FLAG AND EXIT 
GREATER THAN 24K BUT LESS THAN 64K? 
NO, TELL THEM ANO EXIT WITH FLAG CLEAR 
SETUP THE ADDRESS 
FOOL THE 11/02 6 11/03 
ANY HORE THAN 18 BITS SET? 
BR, IF MORE THAN 18 BITS SET 
SET THE FLAG 
EXIT 

NOP FOR PRINTOUT 
TELL THEM 6 EXIT ***N0 PRINT***** 



I RE TURN 



SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
0UTPUTS:NXMLQ, NXMHI jSETUP WITH NXM ADDRESS 
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TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17 j02 
KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 



2951 
2952 

2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
29x57 
2968 
2969 
2970 
2971 



021222 
021226 
021232 
021236 



021254 



021304 
021310 
021314 



021316 



013701 
062701 
042701 
010102 
000006 



010137 
000012 



042702 
010237 
OC "?07 



002120 
000200 
000177 



003140 



177 700 
003142' 



J - 



NXMTST: 



SEQ 082 



MOV 


L*HIHE,R1 


ADD 


0200, Rl 


BIC 


♦177.R1 


MOV 


R1.R2 


,REPT 


6 


ASL 


Rl 


.ENOR 




MOV 


Rl.NXMLO 


.REPT 


10. 


ASR 


R2 


.ENOR 




BIC 


0177700, R2 


MOV 


R2.NXMHI 


RTS 


PC 



,GET TOP OF MEMORY 

I MAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

jPUT IN PLACE FOR XFER 

I SAVE TEST ADDRESS LOW 

I PUT IN PLACE FOR XFER 

I DON' T WANT ILA! 

I SAVE TEST ADDRESS HIGH 

j RETURN 



ENDMOD 



F7 



.SBTTL PROTECTION TABLE 
BGNPROT 
L*PROT:; 
177777 177777 177777 .WORD -1, -1, -1, -1 

ENDPROT 

. SBTTL INITIALIZE SECTION 



TSV4 - MISCELLANEOUS SECTIONS MACRO 
KTINIT - SETUP KTll MEMORY MANAGEMENT 



6 

7 

8 021316 
021316 

9 
15 
1* 

17 021316 
021316 

18 021316 

19 021326 
20 

21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 

34 021326 
021326 

35 021326 

36 021332 

37 021336 

38 021344 

39 021350 

40 021354 

41 021360 
021360 
021364 

42 021366 
021366 

43 021370 

44 021376 

45 021400 

46 021404 

47 021406 

48 021412 

49 021414 

50 021420 

51 021422 

52 021430 

53 021432 
021432 
02.1454 

54 021436 
021436 
021442 

55 021444 
021444 

56 021446 



W 



GISTEftS 



01-FEB-84 
EftS 



17:02 



SEQ 083 



TSV4;: 



.TITLE TSV4 - MISCELLANEOUS SECTIONS 
BGNMOD TSV4 



j NO DEVICE PROTECTION REQUIRED. 



j THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
I AT THE BEGINNING Of EACH PASS. 



"START" OR "RESTART" 
"CONTINUE", NOTHING 



I IP 
l IF 

J 
I -- 

! INSERT TEMPORARY 



, SET QUICK -PASS FLAG ANO BUS-INIT. 
IS REQUIRED. 



JUMP TO ODT 



005037 
005037 
012737 
005037 
005037 
005037 

012700 

104447 

103023 
023737 
? 03070 
005737 
100472 
013701 
00630i 
005761 
001516 
032761 
001060 

104432 
000416 

012700 
104447 

103052 



002226' 

003136' 

006172' 

003154' 

003134 

002302 

000036 



OO2.:02' 
003112' 
002202' 
003176' 
040000 



i - 

I UNIT: 
40?s 



002200' 



BGNINIT 

CLR 

CLR 

MOV 

CLR 

CLR 

CLP 

READEF 

MOV 

TRAP 



EXTFEA 
NXHFLG 

*€PRT1,EPRTSW 

SIFLAG 

KTENA3LE 

RAMSIZ 

*EF, CONTINUE 

*fcF. CONTINUE, RO 

CIREFG 



i SET UP PRIMARY MESSAGE FOR REPLACEMENT 

iCLEAR "SOFT INIT" FLAG 

j CLEAR TEST ABOVE 28K FLAG 

j CLEAR RAM SIZE FOR RAMERR ROUTINE 



BNCOMPLETF. II 



002012 



003176 



000035 



1* 



BCC 

CMP 

BHIS 

TST 

BMI 

MOV 

ASL 

TST 

BEQ 

BIT 

SHE 

EXIT 

TRAP 

.WORD 

READEF 

MOV 

TRAP 



1* 

UNITN f L*UNIT 

4* 

DUFLG 

NXTU 

UNITN.R1 

Rl 

ERTABL(Rl) 

SETU 

•BIT14.ERTABLCRJ.) 



NXTU 

INIT 

CIEXIT 

L 10030 

*£F , NEW 

♦EF.NCW.i' 

CIREFG 

BNCOMPLETE NX P.; 

BCC NXTU 

READEF OEF.SiAKV 



I UNIT IN RANGE? 
»BR IF NO. 
j DROPPED UNIT? 
;BR IF YES 



, DROPPED? 

»D0 NOTHING IF "CONTINUE", 



j TAKE NEXT UNIT IF NOT NEW PASS 



b 
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TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO M1115 ^-FFR-84 17:02 



SEQ 084 



021446 
021452 

57 021454 
021454 

58 021456 
021456 
021462 

59 021464 
021464 

60 021466 

61 021466 
021466 

62 021470 
65 021474 

64 021500 

65 021504 
66 

67 
68 

69 021510 

70 021514 

71 021514 

72 021522 

73 021526 

74 021532 

75 021536 

76 021540 

77 021544 

78 021546 

79 021550 

80 021554 
81 

82 021560 

83 021560 

84 021566 

85 021572 
021572 

86 021574 

87 021600 

88 021606 

89 021610 

90 021616 

91 021620 
021620 

92 021622 

93 021624 

94 021624 

95 021632 

96 021634 

97 021640 

98 021642 
021642 

99 021644 
100 021650 
101 

102 021652 
021652 



012700 
104447 

103404 

012700 
104447 

103031 



104433 
005037 
005037 
005037 
005037 



012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012737 
000401 

104444 
000240 

023727 
101752 

005737 
001747 

104421 
032700 
001343 



104424 



000040 



000037 



Zr*: 



MOV /cr . "iTiW? ,R0 
TRAP C$Rc:*G 
^COMPLETE 2$ 
3CS 2$ 
READEF *EF .RESTART 
MOV #fcF. REST ART ,R0 
TRAP CJREFG 
BNCOMPLETE 31$ 
BCC 31$ 



002214' 
002222' 
003144' 
003146' 



005037 003400 



177777 
020450' 
020536' 
003176' 

003376* 



002204' 
021624' 



177777 
002220' 



002202 
002202 



002204 



i 
J 

20*: 



30*: 



31* 



002202' 



002012' 



4*t 
NEWPAS i 

NXTU: 



177777 003112' 



002012' 
002220' 

000100 



000001 



11*: 
PASRPTt 



BRESET 

TRAP 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

JMP 

CLR 

MOV 

JSR 

JSR 

MOV 

CLR 

CMP 

BLO 

BR 

CLR 

JMP 



MOV 

CLR 

BREAK 

TRAP 

INC 

CMP 

BLO 

MOV 

BR 

DOCLN 

TRAP 

NOP 

CMP 

BLOS 

TST 

BEQ 

RFLAGS 

TRAP 

BIT 

BNE 

DORPT 
TRAP 



C*RESET 

TSTCNT 

FATFLG 

T23A 

T23B 

♦340, -CSP) 

*20$,-(SP) 

O.OOT 

SKIPT 

♦-1.QVP 

PC.ENVIRN 

PC.KTINIT 

♦ERTABL.RO 

(RO)* 

RO,*ERTABE 

30* 

4* 

QVP 

PASRPT 



♦-1.UNITN 

OEVCNT 

C*BRK 

UNITN 

UNITN, L*UNIT 

SETU 

♦-1.DUFLG 

11$ 

CIDCLN 



L*UNIT,*1 

NEWPAS 

OEVCNT 

NEWPAS 

RO 

C*RFLA 

♦ISR.RO 

NEWPAS 



j 1ST PASS, BUS-INIT. . . 
jBUS RESET. 

, NUMBER OF TESTS RUN IN PASS 
j CLEAR FATAL ERROR COUNT 
i CLEAR PROCSSOR TYPE A FLAG 
(CLEAR PROCSSOR TYPE B FLAG 

(RETURN TO DEBUGGER 
jiSQENTER THE DEBUGGER 
(CLEAR THE SUBTEST "SKIPPER" 

I. . .QUICK VERIFY... 

,SET ENVIRONMENT. 

(INITIALIZE KT MEMORY MANAGEMENT 

(CLEAR THE ERROR TABLE 



(GO REPORT THE STATUS 



jINIT UNIT NUMBER,. . 

(CLEAR COUNT OF DEVICES RUNNING 



j... AND SET NEXT UNIT NUMBER. 



(ABORT, NO MORE UNITS. 



iHOW MANY UNITS SELECTED? 
I BR IF ONLY 1 
(ARE ANY STILL RUNNING? 
(BR IF NO 



(SHOULD WE PRINT STATISTICS 
(BR IF NO 



C*ORPT 



H7 



T5V4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



103 
104 
105 
106 



107 

108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 



021654 
021656 

021656 
021656 
021662 
021664 
021664 
021666 
021672 
021676 
021700 



021706 
021712 
021716 

021722 



021722 
021726 
021730 
021736 
021742 
021750 
021752 
021752 

135 021754 

136 021760 

137 021762 
021762 
021766 
021772 
C21776 
022000 
022002 

138 022006 

139 022006 

140 022012 
022016 
022020 
022024 
022030 
022032 



000741 



013700 
104442 

103342 
005037 
005237 
012001 
010137 



021704 012001 



141 
142 
143 
144 
145 
146 
147 
148 
149 



022036 
022044 



010137 
012721 
013721 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



002202* 



003112' 
002220' 

002206 ' 



002210 
016026 
002212 



MACRO M1113 01 


-FEB-84 17i02 




BR NEWPAS 


10$: 




SETU: 


GPHARD UNITN,RO 




MOV UNITN.RO 




TRAP CIGPHRD 




BNCOMPLETE NXTU 




BCC NXTU 




CLR DUFLG 




INC DEVCNT 




MOV (R0)*.R1 




MOV Rl.CSRADDR 



SEQ 085 



MOV 
I MOV 
j MOV 
MOV 
MOV 
MOV 



(RO)f ,R1 

(R0),R2 

R2.IPRI 

Rl.ZVEC 

♦INTR.(Ri)* 

IPRI,(R1)> 



jGET UNIT N P-TAbLE POINTER, 

I BR IF UNIT NOT AVAILABLE. 

j CLEAR "DROPPED" FLAG. 

I GET 1ST REGISTER ADDRESS. 

j ADDRESS OF REGISTERS OF UNIT UNDER TEST 

j GET VECTOR ADDRESS. 

,GET INTERRUPT PRIORITY 

jSET INTERRUPT PRIORITY. 

,SET INTERRUPT VECTOR POINTER... 

j . ..VECTOR. .. 

j. ..AND PRIORITY. 



T3T 

BEQ 



QVP 
5$ 



j 1ST PASS ?? 

jNO, SKIP THE PASS 1 STUFF. 



1$: 

\ 
I 

j 1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, ANO 
{THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



002202' 

100000 003176 
005604 ' 
002012' 000001 



001000 



002202 
022054 
000002 



000006 

003114- 
002206' 

000002 
016206' 

003114' 

177777 003112' 



10$; 



2$: 



MOV UNITN.R1 

ASL Rl 

BIS ♦6IT15.ERTABLCR1) 

CLR EXTA 

CMP L$UNIT,*1 

HLOS 101 

RFLAGS RO 

TRAP C$RFLA 

BIT fPNT.RO 

BEQ 10$ 

PRINTF *PUNIT,UNITN 

MOV UNITN.-CSP) 

MOV *PUNIT,-(SP) 

MOV *2,-(SP) 

MOV SP.RO 

TRAP C$PNTF 

ADD *6,5P 

CLR NOOEV 

MOV CSRADDR.R1 

MOV R1.R2 

ADD *TSSR t R2 

JSR PC.XNXM 

BCC 2$ 

MOV Ri.NODEV 

MOV 0-1, DUFLG 



j SAY DEVICE RUNNING 

i CLEAR ERROR EXTENSION FLAG. 

jARE WE TESTING MULTIPLE UNITS? 

iBR IF NO. 

» YES -- GET OPERATOR FLAGS. 

I SHOULD WE PRINT UNIT $? 

,BR IF NOT, 

i PRINT THE UNIT * 



, ADDRESS OF FIRST REGISTER 

l START OF REGISTERS 

» ADDRESS OF TSSR REGISTER 

l TEST BOTH CONTROLLER REGISTERS. 

I ... ANO BR IF ALL OK . 

i FLAG DEVICE AS NON-EXISTENT 

t DROP THIS UNIT. 



jFINALLY, SET CPU PRIORITY AND WE'RE DONE, 
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TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO M1113 01-FE9-84 17?02 



SEQ 086 



150 
151 



152 



153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 

165 
166 
167 
168 
169 



022044 
022044 
022050 
022052 
022052 
022052 

022054 



170 



171 
172 
173 
174 



175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 

187 
188 
189 
190 



022122 
022122 
022122 
022124 
022126 
022134 
022142 
022142 
022144 
022150 
022154 
022156 
022160 
0^2164 
022164 
022166 
022170 



022216 
022216 
022216 



022220 
022220 
022220 
022226 
022230 
022232 



012700 
104441 



104411 
045 



010001 
006301 
052761 
04276i 

010046 
012746 
012746 
010600 
104417 
062706 

0O0167 

000026 

045 



104452 



012737 
010001 
006301 
052761 



000000 



116 



045 



1000O0 
040000 



022170 
000002 



000006 



116 



003176' 
003176' 



SETPRI 
MOV 
TRAP 
ENDINIT 

TRAP 

.ASCIZ 
♦ EVEN 



*PRI00 

*PRI0O,R0 

CISPRI 



j ENABLE INTERRUPTS, 



CIINJ.T 

/*N*N*A*+±** TESTING UNIT *D2*A *****/ 



5$: 

L10030; 
PUNITj 

j THE ADD UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

i TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME. 

I OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 

I -- 



.SBTTL ADD AND DROP UNITS SECTIONS 



L$AU{ 



045 1* 



L10031: 



BGNAU 

MOV 

ASL 

BIS 

BIC 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENOAU 

TRAP 



R0.R1 

Rl 

*100000,ERTABL(R1) 

♦40000, ERTABLCRl) 

*1$,R0 

RO.-CSP) 

♦ll.-(SP) 

*2,-CSP) 

SP,RO 

CIPNTF 

♦6,SP 

AU 

JUMP 

L10031-2-. 

/*N*A UNIT #D*A ADDED/ 



j GET UNIT TO BE AODED (RO) 

i MAKE IT A WORD INDEX 

i SET THE "ACTIVE" BIT 

I CLEAR THE "DROPPED" BIT 



i UNUSED. 



C*AU 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TC BE REMOVED FROM THE TEST LIST, 

SUPVSR DOES THF "DROPPING". THIS IS JUST TO TELL THE MAN, 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMANO, OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS. ANO THE p. TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED, 



177777 
140000 



003112' 
003176' 



LIOUw 



BGNOU 

MOV 
MOV 
ASL 
BIS 



*-l,DUFLG 
R0.R1 

Rl 

0140000, ERTABL(Rl) 



1 SAY DROPPED 
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TSV4 - MISCELLANEOUS SECTIONS 
ADD AND DROP UNITS SECTIONS 



MACRO M1U3 Oi-FEB-84 17:02 



SEQ 087 



191 
192 



193 



194 
195 
196 



197 
198 
199 
200 

201 
202 

203 
204 
205 



206 
207 
208 
209 
210 



211 
212 
213 
214 
215 
216 
217 
218 
219 

220 
221 
222 
223 
224 



022240 
022246 
02224f, 
022250 
022254 
022260 
022262 
022264 
022270 
022270 
022272 
022274 

022324 
022324 
022324 



022326 
022326 
022326 
022332 
022336 
022342 
022344 
022344 
022350 
022352 
022356 
022360 
022364 
022366 
022372 
022374 
022376 
022400 
022404 
022404 
022404 
022404 



022406 
022406 
022406 
022412 
022416 



022420 



000240 000240 000240 



010046 
012746 
012746 
010600 
104417 
062706 

000167 

000030 

04b 



104453 



013705 
012703 
004737 
103420 



OOOOOO 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



013705 
005737 
100405 



022274' 
000002 



000006 



116 



045 



002206' 

000550 

016060' 



000372 
002116' 
177772 
177756 

017014' 



002206' 
003112' 





240,240 


,240 i ????????? 




PRINTF 


♦ll.RO 




MOV 


RO.-CSP) 




MOV 


01*. -(SP) 




MOV 


♦2,-CSP) 




MOV 


SP.RO 




TRAP 


CJPNTF 




ADO 


♦6.SP 




EXIT 


DU 




.UORD 


JUMP 




.WORD 


L10032-2-. 


1$: 


.ASCIZ 

.EVEN 

ENOOU 


/*N#A UNIT *D*A DROPPED/ 


L 10032: 







TRAP 



C*DU 



! AUTO -DROP CODE SECTION. 

BGNAUTO 
LIAUTO: 



10$ 



201: 
L10033: 



MOV CSRADDR.R5 

MOV 0360. f R3 

JSR PC.WAITF 

BCS 201 

DELAY 250. 

MOV «250., (PC)* 

.WORD 

MOV L IDLY, (PC)* 

.yORD 

DEC -6CPC) 

BNE . ~4 

DEC -22CPC) 

BNE .-20 

DEC R3 

BNE 10i 

JSR PC.CKDROP 

ENDAUTO 

TRAP CIAUTO 



iPOINT TO DEVICE REGISTER 

, ENOUGH TIME FOR 2400' REEL TO REWIND 

jWAIT FOR SSR TO SET 

l LEAVE WHEN SSR IS SET 

;WAIT FOR .25 SECONDS 



iBUMP COUNTER DOWN 

jKEEP GOING 

i TRY AND DROP UNIT 



UNUSED. 



.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



♦• ♦ 



THE CLEANUP CODING SECTION CONTAINS THE COOING THAT IS 
EXECUTED AT THE ENO OF EACH PASS (OR SUB-PASS*). 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



012765 OOOOOO 000002 



BGNCLN 
LfCLEAN: : 

MOV 

T5T 
BMI 



MOV 



CSRADDR.R5 

DUFLG 

1$ 



00,TSSR(R5) 



jPOINT TO DEVICE REGISTER 
j "DROPPED" FLAG IS SET ON,., 
I...ANO GROSS CONTROLLER FAULT... 
I.,. DON'T TRY TO XCT CLEANUP CODE 

jDO SOFT IN1T 



I\ 
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01-FEB-84 17:02 



SEQ 086 



226 
227 
228 



229 
230 
231 
232 
233 

234 



235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 



24 7 
248 
249 
250 



251 
252 
253 
254 



255 



022426 
022432 
022432 
022432 
022432 



022434 

022434 

022434 

022434 

022440 

022444 

022446 

022450 

022454 

022456 

022460 

022462 

022466 

0224 70 

022472 

022474 

022476 

022502 

022504 

022510 

022510 

022512 

022514 

022520 

022524 

022526 

022530 

022534 

022536 

022542 

022544 

022544 

022546 

022552 

022556 

022560 

022562 

022566 

022570 

022574 

022576 

022576 

022600 

022604 

022610 

02261? 

022614 

022620 



004737 016060' 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
0OO431 
02022 7 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
000414 



JSR PC.WAITF 
1$: 

2*: ENDCLN 
L10034; 

TRAP CICLEAN 

j ♦♦ 

j THE REPORT COOING SECTION CONTAINS THE 

5 "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



L$RPT: 



BGNRPT 



022676 
000001 



000004 
003176' 

040000 
170000 



022733 
000003 



000010 
160000 



023003 
000002 



000006 
160001 



023065 
000002 



000006 



1* 



2% 



3f 



PRINTS 


ODEVSUM 


MOV 


ODEVSUM, -(SP) 


MOV 


01, -(SP) 


MOV 


SP,RO 


TRAP 


CIPNTS 


ADD 


04, SP 


MOV 


R2.-CSP) 


MOV 


R3.-CSP) 


MOV 


R4,-(SP) 


MOV 


0ERTABL.R4 


CLR 


R3 


MOV 


(R4),R2 


BEQ 


4$ 


BPL 


41 


BIT 


06IT14.R2 


BNE 


21 


BIC 


♦tC7777,R2 


PRINTS 


OOEVONL,R3,R2 


MOV 


R2,-(SP) 


MOV 


R3,-(SP) 


MOV 


OOEVONL.-(SP) 


MOV 


03, -(SP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADO 


♦10. SP 


BR 


41 


CMP 


R2, 0160000 


BNE 


31 


PRINTS 


0DEVNXR.R3 


MOV 


R3, (SP) 


MOV 


ODEVNXR.-(SP) 


MOV 


02, -(SP) 


MOV 


SP.RO 


TRAP 


C*PNTS 


ADO 


06, SP 


BR 


4$ 


CMP 


R2. 0160001 


bn'-: 


301 


PRINTS 


O0EVNRD.R3 


MOV 


R3.-CSP) 


MOV 


O0EVNRD,-(SP) 


MOV 


02. (SP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADO 


06, SP 


BR 


4$ 



i GET START OF ERROfl TABLE. 

I CLEAR UNIT NLJ1BER 

i GET ERROH TABLE ENTRY & TEST IT 

I ZERO IF UNIT NOT RUN 

j WAS UNIT DROPPED? 

I BR IF YES 

t GET ERROP COUNT TIELD 

I PRINT 



i UAS UNIT NON-EXISTENT? 
I BR IF NO 



i WAS UNIT NOT READY AT STARTUP? 
j BR IF NO. 
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256 
257 



258 
259 
260 
261 
262 
265 
264 
265 



266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
2 76 
277 
278 



022622 
022626 
022626 
022630 
022632 
022636 
022642 
022644 
022646 
022652 
022656 
022660 
022664 
022666 
022670 
022672 
022674 
022674 
022674 



022676 
022733 
023003 
023065 
023146 



023216 



042702 170000 



010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



30$.* 



023146 
000003 



000010 
000002 

003376' 



4$: 



01-FEB-84 


17:02 


BIC 


«tC7777,R2 


PRINTS 


OOEVDR0,R3,R2 


MOV 


R2.-CSP) 


MOV 


R3, (SP) 


MOV 


OOEVDRO, -(SP) 


MOV 


03, -(SP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADD 


#10, SP 


ADD 


02, R4 


INC 


R3 


CMP 


R4,*€RTABE 


BLO 


11 


MOV 


(SP)< ,R4 


MOV 


(SP)*,R3 


MOV 


(SP)*,R2 


ENDRPT 


* UNUSED 



SEQ 089 



116 

101 
101 
101 
101 



L10O35 



045 DEVSUM 

040 DEVONL 

040 DEVNXR 

040 DEVNRD 

040 DEVDRO 



TRAP 



.ASCIZ 
. ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 

ENDMOD 



C*RPT 



/KNrfADEVICE STATUS SUMMARY ;*N/ 

/*A UNIT *D3*A ONLINE, ERRORS - *D#N/ 

/*A UNIT *D3*A DROPPED, NON-EXISTENT REGISTERS/ 

/*A UNIT *D3*A DROPPED, NOT READY AT STARTUP*N/ 

/*A UNIT KD3KA DROPPED, ERRORS * *D*N/ 
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01-FEB-84 17;02 



SEQ 090 



1 
2 
o 

10 023216 
023216 
16 
24 

25 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 

.'8 

^9 

<n 

41 
42 
43 
44 
45 

46 023216 
023216 

52 023216 

53 023222 

54 023226 

55 023234 

56 023234 
57 

58 023240 

59 023244 

60 023250 

61 023256 

62 023256 

63 023262 

64 023264 

65 023266 
023266 
023270 
023272 
023274 

66 
67 

68 023276 

69 023302 

70 023306 

71 023312 

72 023326 

73 023330 

74 023332 



012700 
004737 
012737 



TSV5; 



.TITLE TSV5 - HARDWARE TESTS 



BGNMOD TSV5 



.SBTTL TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 



J ♦ 



TEST DESCRIPTION: 



This test verifies that a Hardware Initialize command 

invoked after a Write Characteristics command sets op 

the Command, Message and Characteristic image blocks 
in the controller ram correctly. 



TEST STEPS: 



REPEAT FOR LOOPCNT 
BEGIN 

Do WRITE CHARACTERISTICS command. 

If the NBA bit in the TSSR register is NOT-O then Print Error. 
Write to TSSR register to coft initialize the controller 
If controller RAM 310-377 NOT-0 then Print Error 
END 



BGNTST 



023662 
016322 
000012 



002216 



0047S7 024136' 

012703 002764' 

012704 023620' 
012764 000010 

004737 015604' 

103405 

010001 

104455 
0OO144 
003646' 
011644' 



005037 002222' 
010465 000000 
004737 016146' 

103407 
010001 



000006 



MOV 
JSR 
MOV 
T13L00P: 

JSR 


•TST13I0.RO 

PC.TSTSETUP 
•10., LOOPCNT 

PC.T13REST 


MOV 
MOV 
MOV 
5J: 

JSR 
BCS 
MOV 
ERRDF 


•TSTBLK*10. ,R3 

4T13PACKET.R4 

•8.,PKBCNTCR4) 


PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



;Do WRITE CHARACTERISTICS command. 

10$: CLR FATFLG 

MOV R4,TSDB(R5) 
JSR PC.CHKTSSR 
FORCEnROR 12$ 
BCS 15$ 
MOV R0.R1 
NEXT.ERRNO 



Tl: : 

{ASCII MESSAGE TO IDENTIFY TEST 
{DO INITIAL TEST SETUP 
{PERFORM 10 ITERATIONS 

j SET PACXET TO START-UP VALUES 

i START OF TEST DATA 

{GET THE ADDRESS OF COMMAND PACKET 

: START WITH MINIMUM ALLOWABLE VALUE 

{WRITE 10 TSSR TO SOFT INITIALIZE 

j BR IF SOFT INIT OKAY 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL DURTNG INIT 

TRAP C$ERDF 
.WORD 100 
.WORD SFIERR 
.WORD SFIMSG 



{CLEAR FATAL ERROR FLAG 

I SET THE PACKET ADDRESS TO EXECUTE 

;WAIT FOR SSR TO SET 

{QSOFORCE ERROR IF FORCER- 1 
f BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENDS OF TSSR 
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75 023332 






023332 


104455 




023334 


00C145 




023336 


024047' 




023340 


011656' 




76 023342 


005237 


002222' 


7/ 023346 






023346 


104406 




78 023350 


016501 


000002 


79 023354 


012702 


000200 


80 023360 


032701 


000100 


81 023364 


001402 




82 023366 


052702 


000100 


83 






64 






85 02337? 






86 0233 7 2 






87 023406 


020201 




88 023410 


001404 




89 023412 






90 023412 






023412 


104456 




023414 


000146 




023416 


023774' 




0234 ?0 


011656' 




91 023422 






023422 
92 
93 


104406 








94 023424 






95 023424 


004737 


015604' 


96 023430 






97 023444 


103405 




98 023446 


010001 




99 023450 






100 023450 






023450 


104455 




023452 


000147 




023454 


003646' 




023456 


011644' 




101 






102 






?.03 023460 


012704 


000310 


104 023464 


005002 




105 023466 


105065 


000000 


106 023472 


C04737 


016146 


107 023476 


010465 


000000 


108 023502 


004737 


016146 


109 023506 


3 16501 


oooooo 


110 023512 






111 023522 


120102 




112 023524 


001406 




117/ 023526 






1X4 023526 






023526 


104455 




023530 


000150 




023532 


CC3735 1 





12$ 



ERRDF ERRNO , T13SSR , PKTSSR 



{DEVICE FATAL SSR 



15$ 



INC 
CKLOOP 

MOV 
MOV 
BIT 
BEQ 
BIS 



FATFLG 



TSSRCR5),R1 

0SSR.R2 

*OFL,R.l 

25$ 

#0FL,R2 



,SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 

.WORD 
.WORD 



SET 
TRAP 

IR 



{GET THE CONTENTS OF TS: 
{EXPECTED CONTENTS OF TSSR 
{IS OFF-LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
jSET OFF-LINE IN EXPECTED DATA 



SEQ 091 



C$ERDF 
101 

T13S5R 
PKTSSR 



C$CLP1 



{If the NBA bit in the TSSR register is NOT-0 then Print Error, 
25$: 

FORCERROR 27$ 

CMP R2.R1 

BEQ 30$ 

NEXT. ERRNO 

ERRHRD ERRNO , T13NBA , PKTSSR 



iQSO 
{DOES EXPECTED MATCH RECEIVED ? 
I OKAY IF MATCH 



27$ 



30$ 



CKLUOP 



{NBA NOT ZERO 



{LOOP ON ERROR ? 



TRAP 

.WORD 

.WORD 

.WORD 

TRAP 



CSERHRD 
102 

T13NBA 
PKTSSR 

C$CLP1 



; Write to TSSR register to soft initialize the controller 
40$: 

JSR PC.SOFINIT 

FORCERROR 12$ 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 
42$: ERRDF ERRNO, SFIERR.SFIMSG 



{WRITE TO TSSR TO SOFT INITIALIZE 
tSUO 

{BR IF SOFT INIT OKAY 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL DURING INIT 




TRAP 


C$ERDF 


.WORD 


103 


.WORD 


SFIERR 


♦ WORD 


SFIMSG 



jlf controller RAM 310-377 NOT-0 then Prirt Error 
50$: 



60$ 



62$: 



MOV $310, R4 




{START WITH LOC 310 




CL:< R2 




{MEMORY EXPECTED SHOULD BE OOOOOO 


CLRB TSDBCR5) 




{SET MAINTENANCE MODE 




JSR PCCHKTSSR 




{UAIT FOR SSR READY 




MOV R4,TSDBCR:>) 




{SELECT RAM ADDRESS 




JSR PCCHKTSSR 




{WAIT FOR SSR READY 




MOVB TSBACR5).R1 




{READ LOC CONTENTS 




FORCERROR 62$. 


NOTSSR 


(SOD 




CMPB R1.R2 




{CHECK MEMORY FOR OOOOOO 




BEQ 70$ 




{BRANCH IF DATA OKAY 




NEXT. ERRNO 








ERRDF ERRNO, T13M&M 


♦RAMEXP 


{MEMORY NOT ZERO AFTER INIT. 








TRAP 


CIEROF 






.WORD 


104 






.WORD 


T13MEM 
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115 

116 

117 



116 
119 
120 
121 
122 
123 
124 
125 
126 
127 
120 
129 
130 
131 



132 
133 
134 
135 
136 
136 
140 
141 
142 
143 
144 
145 
146 
147 
146 
149 
1M) 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
16 7 



023534 
023536 
023542 
023542 
023544 
023544 
023546 

023550 
023552 
023556 



023560 
023564 
023566 
023572 
023576 
023600 
023604 
023604 
023604 
023606 



023610 
023620 
023620 
023622 
023624 
023626 

023630 
023630 
023632 
023634 
023636 

023642 



023662 
023735 

025774 
024047 



015340' 

005237 002222' 

104406 

104410 
000436 

005204 

320*27 000400 

001347 



005737 002222' 

001402 

004737 017014' 

004737 016270' 

103002 

000137 023234' 



1044 32 
000376 



100004 
023630' 
000000 
000010 



023642' 

000000 

000016 

000000 000000 



111 

HI 

127 
103 



156 
156 

122 

157 



151 
143 

111 
156 



INC FATFLG 
701 1 CKLOOP 

ESCAPE TST 



821 \ INC R4 

CMP R4.0400 

BNE 601 



TST FATFLG 

BEQ 1601 

JSW PC.CKDROP 

JSR PC.TSTLOOP 

BCC 1651 

JMP T13L00P 

EXIT TST 



160$! 
165$ j 

I LOCAL STORAGE FOR THIS TEST 



.BLKB 
T13PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 



Tl3DATAs 



.WORD 
.WORD 
.WORO 
.WORD 



10-< >-TSV267> 

100004 

T13DATA 



8. 



T13B'R 


14. 
0»0 



Tl3BFRj .BLKW 8, 

lLOCAL TEXT MESSAGES FOR TEST 

i - 



SEQ 092 



.WORD RAMEXP 
I SET THE FATAL ERRCM FLAG 



I EXIT ON FATAL ERRftl 



TRAP 



CtCLPl 



TRAP CIESCAPE 
.WORD L 10036 -. 



lLOOK AT NEXT RAM LOC. 

I AT TOP OF RAM ADDRESS SPACE 

l BRANCH TILL ALL MEMORY TESTED 



I ANT FATAL ERRORS ? 

l BRANCH IF NOT 

I TRY TO DROP THE UNIT 

iDONE ALL ITERATIONS? 

j PR IF YES 

lLOOP UNTIL ITERATION COUNT DONE 



TRAP CIEXIT 
.WORD L 10036 -. 



I COMMAND PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMANO, WITH ACK 

lAODRtSS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 

jCHARACTERISTICS OATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 
iMESSAGE BUFFER 



TSU3ID! 
T13MEM? .ASCIZ 

.EVEN 
T13NBA. .AiCIZ 
TUSSRi .ASCIZ 



.ASCIZ ' Initialization Aftar WRITE CHARACTERISTICS' 
•Incorrect RAM Data Aftar In!t' 

•WRITE CHARACTERISTICS Command Not Acc«otad 

•Contanta of TSSR Incorract Aftar WRITE CHARACTERISTICS' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (QEFAUU) VALUfcS 



^•l^^L^i T ^T E B A BI?Tg l ^RA8^!if?J S 17 ' 02 



C8 



SEQ 093 



168 
169 

170 
171 
172 
173 
174 
175 
176 
177 
17ft 
179 

ido 

181 
182 

183 
104 



185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 

201 
202 
203 
204 
205 



206 
20 7 
206 



209 

210 

211 
212 
216 
217 



218 
219 



.EVEN 



024136 
0241*6 
024142 
024146 
024152 
024156 
024160 
024164 
024170 
024172 
024176 
024200 
024202 
024204 
024204 
024204 



024206 
024206 
024206 
024212 
024216 
024224 
024224 
024224 
024224 
024226 
024232 
024236 
024236 
024242 
024244 
024244 
024244 
024246 
024252 
024254 
024256 
024256 
024260 
024262 
024264 
024266 
024266 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
000207 



104401 



012700 
0O4737 
012737 



104402 
004737 
004737 

01270C 
104441 



1O4404 
004737 
103405 
010001 

104455 
000311 
003646 
011644 



023620 
100004 
023630' 

000010 
023642 

000016 



T13REST* 




SAVREG 




MOV 


♦T13PACKE1 ,R1 


MOV 


#100004 ( (R1)* 


MOV 


♦T13DATA,CR1)» 


CLR 


CRD* 


MOV 


•e..<Ri>» 


MOV 


•T13BFR,(Rl)* 


CLR 


(Rl)* 


MOV 


#14., CRD* 


CLR 


CR1)> 


CLR 


(Rl) 


RTS 


PC 


ENOTST 





I SAVE THE REGISTERS 

, START OF THE PACKET 

iWRITE CHARACTERISTICS WITH ACK 

i ADDRESS OT CHAR D^ta BLOCK 

jEXTENOED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

1 ADDRESS OF MESSAGE BUFFER 

llENGTH OF MESSAGE BUFFER 



I RETURN 



L 10036s 



TRAP 



CIETST 



.SBTTL TEST 2t BASIC WRITE SUBSYSTEM MEMORY COMMAND 
I » 
I 

I THIS TEST VERIFIES THAT Ti* WRITE SUBSYSTEM MEMORY COMMANO WITH A 
iBSELO SELECT COOE OF (NO-OP) EXECUTES CORRECTLY. IT ALSO 
I VERIFIES TKAT A WRITE SU8SYSTEM MEMORY COMMANO WITH A NON-ZERO 
iMOOE FIELD IS REJECTED. TH£ TEST FURTHER VERIFIES MICROPROGRAM 
» COMMANO DECODING AND HANDLING SEQUENCES. 
i 
I 



026021' 
016322' 
000024 002216 



026066' 
026124' 



T14L00P: 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



000000 



015604 



5*i 



JSR 
JSR 
SETPRI 



BGNSEG 



♦TST14ID.R0 
PC.TSTSETUP 
#20.»L00PCNT 



PC.T14RRST 

PC.U4RST 

*PRI00 



T2:: 

»ASCII MESSAGE TO IDENTIFY 
lOO INITIAL TEST SETUP 
iPERFORM 20 ITERATIONS 



TEST 



012704 025360' 



10* J 







TRAP 


JSR 


PC. SOT INIT 


iDO SOFT INIT OF CONTROLLER 


BCS 


10$ 


iBR IF SOFT INIT - OK 


MOV 


R0.R1 


i SAVE CONTENTS OF TSSR 


F^PDF 


ERRN0,5FIERR,SFIMSG 


lOEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



MQV 



*TL4PK2»R4 



\//////////// BEGIN SUBTEST //////////// 

T2.lt 

TRAP CIBSU6 

iSET PACKET TO INITIAL VALUES 

iSET PACKET TO INITIAL VALUES 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV ♦PRIOO.RO 
TRAP CISPRI 

,>>>>>>>>>>> ^ BEGIN SEGMENT >>>>>>>»»>>> 

C*BSEG 



CtF.RDF 
201 

SFIERR 
SFIMSG 



i SUBROUTINE NEEDS PACKET ADDRESS 



D8 
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220 024272 

221 024276 

225 024300 

226 024302 
024302 
024304 
024306 
024310 

227 024312 

228 024312 
22^ 024316 

230 024322 

231 024326 

232 024332 

233 024336 

234 024340 

238 024342 
024342 
024344 
024346 
024350 

239 024352 

240 024356 
024356 

241 024360 
024360 
024362 

242 024364 

243 024370 

247 02*. 372 
024372 
024374 
024376 
024400 

248 024402 

249 024406 

250 024412 

251 024416 

252 024420 

253 024424 

254 024426 

258 024430 
024430 
024432 
024434 
024436 

259 024440 

260 024440 

261 024444 

265 024446 
024446 
024450 
024452 
024454 

266 024456 
024456 
024456 



004737 010472 

103405 

010001 

104456 
000312 
005052' 
011644* 



005037 
00503 7 
012704 
010465 
004737 
103407 
010001 

104455 

000313 

025553' 

011656' 

005237 

104406 

104410 
000074 
005737 
001004 

104456 

000314 

025643' 

011656' 

016501 

012702 

032701 

001402 

052702 

020201 

001404 

104456 
000315 
025402' 
011656' 

0O4737 
103405 

104456 
000316 
004741 

015320 



104405 



JSR 


PC.WRTCHR 


BCS 


111 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



002222' 

002224- 

024740 

000000 

016146 



11*5 



002222 



15$; 



CLR FATFLG 

CLR INTHECV 

MOV #Ti4PACKET,R4 

MOV R4.TS0BCR5) 

JSR PCCHKTSSH 

BCS 15$ 

MOV R0,R1 

ERRDF ERRN0.U4SSR, PKTSSR 



INC FATFLG 
CKLOOP 

ESCAPE SEG 



002224 



000002 
000200 
000100 

000100 



22$} 



25$} 



TST 
BME 

ERRHRD 



MOV 
MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRD 



INTRECV 
22$ 

ERRN0,T14NINT .PKTSSR 



TSSRCR5),R1 

♦SSR.R2 

♦OFl.Rl 

25$ 

♦0FL.R2 

R2.R1 

30$ 

ERRN0,Tl4NeA,PKT5SR 



010724 



30$ j 
35$: 



JSR 
BCS 
ERRHRD 



ENDSEG 



PC.CKRAM 

59$ 

ERRNO.PKTRAM.RAMERR 



SEQ 094 



\ ISSUE WRITE CHARACTERISTICS 
iBR, IF CONMANO ISSUED OK 
I SAVE CONTENTS OF TSSR 
iWKITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
202 

WRTMSG 
SFIMSG 



> CLEAR FATAL ERROR FLAG 
I CLEAR INTERRUPT RECEIVED FLAG 
I SET UP NEW WRT. SU8SYS MEM. COMMAND 
iSET THE PACKET ADDRESS 
iWAIT FOR SSR TO SET 
iBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 
jDEVICE FATAL SSR FAILED TO SET 

TRAP 



.WORD 

.WORD 

WORD 

I SET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP 

I BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

iDID AN INTERRUPT OCCUR ? 

j BRANCH IF YES 

TRAP 
.WORD 
.WORD 
.WORD 
iGET THE CONTENTS OF TSSR 
lEXPECTED CONTENTS OF TSSR 
iIS OFF-LINE BIT SET ? 
iBRANCH IF NOT OFF-LINE 
tSET OFF-LINE IN EXPECTED DATA 
I DOES EXPECTED MATCH RECEIVED ? 
lOKAY IF MATCH 
lN6A NOT ZERO 

TRAP 
.WORD 
.WORD 
.WORD 

i CHECK RAM TO MEMORY 

iRAM OK GO ON 

}THEY DON'T MATCH 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
203 
T14SSR 
PKTSSR 



C$CLP1 

C$ESCAPE 
10000$-. 



C$ERHRD 
204 

T14NINT 
PKTSSR 



C$ERHRU 
205 
T14NBA 
PKTSSR 



CiERHRD 
206 

PKTRAM 
RAMERR 



!<<<<<<<<<<<<< END SEGMENT <s<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 



E8 
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SEQ 095 



26 7 

268 

269 024460 
024460 
024460 

270 

271 024462 

272 024466 

273 024470 

274 024474 
275 

276 
277 
278 
279 
280 
281 
282 
233 
284 

285 024474 
0244 74 
024474 

286 

287 024476 
024476 
024502 

286 024504 

289 024510 

290 024514 

291 024520 
024520 

292 

293 024522 

294 024526 

298 024530 

299 024532 
024532 
024534 
024536 
024540 

300 024542 

301 024542 

302 024546 

306 024550 

307 024552 
024552 
024554 
024556 
024560 

306 024562 

309 024562 

310 024566 

311 024572 

312 024576 

313 024602 

314 024606 



59$ 5 



104403 

005737 002222' 

001402 

004737 017014' 



104402 



012700 
104441 
012704 
004737 
004737 

104404 

004737 
103405 
010001 

104455 
000317 
003646* 
011644' 

004737 
103405 
010OO1 

104456 
000320 
O05052 1 
011644' 

005037 
012704 
052714 
010465 
004737 
103405 



ENDSUB 



TST 
BEQ 
JSR 



FATFLG 

60$ 

PC.CKOROP 



60$: 

i ♦ 

tTEST 2, SUBTEST 2 

jCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
j WRITE SUBSYSTEM MEMORY COMMANO TO BE REJECTED 

* - 



l\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10040; 

TRAP C5ESUB 

i ANY FATAL ERRORS ? 

j BRANCH IF NOT 

I TRY TO DROP THE UNIT 



000000 

025360' 

026066 

026124' 



015604 



51: 



BGNSUB 



SETPRI OPRIOO 



MOV 0T14PK2.R4 

JSR PC.T14REST 

JSR PC.T14RST 
BGNSEG 



JSR 


PC.SOFINIT 


BCS 


101 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIER^SFIHSG 



010472' 



10$; 



\//////////// BEGIN SUBTEST //////////// 

T2.2: 

TRAP C$BSUB 

jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 

TRAP C$SPRI 

iGET THE ADDRESS OF COMMANO PACKET 
iRESTORE PACKET TO STARTING VALUES 
iRESTORE PACKET TO STARTING VALUES 
;>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

I DO SOFT INIT OF CONTROLLER 

I BR IF SOFT INIT ■ OK 

I SAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 

,WORD 207 
.WORD SFIERR 
.WORD SFIMSG 



002224 
024 740 
007000 
000000 
016060 



11$; 



JSR 


PC.WRTCHR 


j ISSUE WRITE CHARACTERISTICS 




BCS 


11$ 


iBR, IF COMMANO ISSUED OK 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG^SFIMSG 


IWRITE SUBSYSTEM MEMORY FAILED 








TRAP 


C$ERHRD 






.WORD 


208 






.WORD 


WHTMSG 






.WORD 


SFIMSG 



CLR 


INTRECV 


MOV 


#T14PACKET,R4 


BIS 


♦007000, (R4) 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


BCS 


15* 



iCLEAR INTERRUPT RECEIVED FLAG 

»SET-UP WITH WRT SUBSYS MEM PACKET 

iNON-ZERO COMMANO MODE BITS 

iSET THE PACKET ADDRESS 

jWAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 



F8 
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315 024610 

319 024612 
024612 
024614 
024616 
024620 

320 024622 
024622 

321 024624 
024624 
024626 

322 024630 

323 024634 

327 024636 
024636 
024640 
024642 
024644 

328 024646 

329 024652 

330 024656 

331 024662 

332 024664 

333 024670 

334 024672 

338 024674 
024674 
024676 
024700 
024702 

339 024704 

340 024 704 

341 024710 

345 024712 
024712 
024 714 
024716 
024720 

346 024722 
024 722 
024722 

34 7 

348 024 724 
024 724 
024724 

349 

350 024 726 
024726 
024730 

351 

352 

353 

354 

355 

357 024732 

359 024740 

360 024740 



010001 

104455 
000321 
025553 • 
011656' 

104406 

104410 
000074 
005737 
001004 

104456 

000322 

025643* 

011656' 

016501 

012702 

032701 

001402 

052702 

020201 

001404 

104456 
000323 
025456' 
011656' 

004737 
103405 

104456 
000324 
004741' 
015320' 



104405 



104403 



104432 
001246 



15*} 



002224 



MOV R0.R1 

ERRDF ERRNO , T14SSR , PKTSSR 



CKLOOP 
ESCAPE SEG 



TST INTRECV 

BNE 221 

ERRHRD ERRNO, T14NINT .PKTSSR 



000002 
100206 
000100 

000100 



22*: 



25*: 



MOV 


TSSR(R5),R1 


MOV 


*SC!SSR|TSREJ,R2 


BIT 


*0FL,R1 


BEQ 


25$ 


BIS 


♦0FL.R2 


CMP 


R2.R1 


BEQ 


30$ 



ERRHRD ERRNO , T142RE J . PKTSSR 



010724 



30$: 
35$: 



JSR PC.CKRAM 

BCS 59$ 

ERRHRD ERRNO , PK TRAM . RAMERR 



ENOSEG 



59$: 



100206 



ENDSUB 



EXIT TST 



jLOCAL STORAGE FOR THIS TEST 

.BLKB 10-<.-TSV267> 
T14PACKET: 

.WORD 100206 



SEQ 096 



I SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
♦WORD 209 
.WORD T14SSR 
.WORD PKTSSR 

jLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

iBY-PASS CHECKS IF FATAL ERROR 

TRAP C$ESCAPE 
.WORD 10000$-. 

j DID AN INTERRUPT OCCUR ? 

j BRANCH IF YES 

TRAP C$ERHRD 

.WORD 210 
.WORD T14NINT 
.WORD PKTSSR 

iGET THE CONTENTS OF TSSR 

I EXPECTED CONTENTS OF TSSR 

lIS OFF-LINE BIT SET ? 

I BRANCH IF NOT OFF-LINE 

i SET OFF-LINE IN EXPECTED DATA 

jDOES EXPECTED MATCH RECEIVED ? 

lOKAY IF MATCH 

iCOMMANO NOT REJECTED 



TRAP 


C$ERHRD 


.WORD 


211 


.WORD 


T142REJ 


.WORD 


PKTSSR 



I CHECK RAM TO MEMORY 

jRAM OK GO ON 

j THEY DON'T MATCH 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
212 

PKTRAM 
RAMERR 



!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

»\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10041: 

TRAP C$ESUB 



I ALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 
L10037-. 



i COMMAND PACKET FOR TEST 

j WRITE SUBSYSTEM MEM. COMMAND. 



WITH IE, ACK 
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G8 



SEQ 097 



361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

373 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 



024742 
024744 
024746 
024750 
024750 
024751 
024752 
024754 
024756 



025356 
025360 
025360 
025362 
025364 
025366 



025370 
025370 
025372 
025374 
025376 



025402 
025456 
025553 
025643 
025735 
026021 



026066 
026066 
026072 
026076 
026102 
026106 
026110 
026114 
026116 
026120 
026122 



024750' 

oooooo 

000006 

000 

000 

oooooo 
oooooo 



100204 
025370' 
OOOOOO 
000010 



024756' 

OOOOOO 

000400 

oooooo oooooo 



127 
127 
103 
105 
111 
102 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



122 
122 
157 
170 
156 
141 



111 
111 
156 
160 
143 
163 



024 740' 

100206 

024750' 

000006 





.WORD 


T14DATA 




.WORD 







.WORD 


6. 


T14DATA 






U48S0: 


.BYTE 





T14BS1: 


.BYTE 





T14BS2: 


.WORD 







.WORD 





T14BFR: 


.BLKW 


128. 




.BLKB 


10-<.-TSV2fi7> 


T14PK2J 








.WORD 


100204 




.WORD 


T14DTA 




.WORD 







.WORD 


8. 


T14DTA: 








.WORD 


T14BFR 




.WORD 







.WORD 


256. 




.WORD 


0,0 



j ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 

I CHARACTERISTICS DATA BLOCK 

iBSELO BYTE 

iBSELl BYTE 

jBSELl WORD 

j DATA 

I MESSAGE BUFFER 



I COMMAND PACKET FOR TEST 

jWRITE CHARA, MEM. CMNO. , WITH IE, ACK 

I ADDRESS OF SELECT DATA BLOCK 

j STARTING VALUE OF BLOCK SIZE 



j SELECT DATA BLOCK 

I ADDRESS Of MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



I LOCAL TEXT MESSAGES FOR TEST 



T14NBA: .ASCIZ 

T142REJ? 

T14SSR: .ASCIZ 

T14NINT 

T14TSBA 

TST14ID 

.EVEN 



I ♦ 

J 



'WRITE SUBSYSTEM MEHOHY Command Not Accepted' 

.ASCIZ 'WRITE SUBSYSTEM MEMORY Not Rejected With Non-Zero Mod* Field' 

'Content* of TSSR Incorrect After WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Incorrect TSBA Addreae After WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Basic WRITE SUBSYSTEM MEMORY Command' 



jROUTINE TO RESTORE COMMAND PACKET 
j WRITE SUBSYSTEM MEMORY COMMAND 



TO START-UP (DEFAULT) VALUES 



J 
J - 




T14REST: 




SAVREG 




MOV 


*T14PACKET,R1 


MOV 


0100206, CRD* 


MOV 


0T14DATA.CR1)* 


CLR 


(Rl>» 


MOV 


06. ,(Ri>* 


CLR 


(Rl)» 


CLR 


CR1)» 


CLR 


CR1) 


RTS 


PC 



iSAVE THE REGISTERS 

j START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK, IE 

t ADDRESS OF DATA BLOCK 

lEXTENOED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

I CLEAR BSELO AND BSEL1 

iCLEAR SEL2 

i CLEAR DATA AREA 

iRETURN 
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SMP-" 64 



1AND 



17i02 



-18 



SEQ 098 



420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 



437 
438 
4S9 
4*0 
441 
442 
443 
444 
445 
446 
447 
448 
449 
45C 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 

469 

470 
471 
472 
473 
4 74 
475 
476 
47V 



026124 
026124 
026130 
026134 
026140 
026144 
026146 
026152 
026156 
026160 
026164 
026166 
026170 
026174 
026176 
026176 
026176 



026200 
026200 
026200 
026204 
026210 
026216 
026222 

026226 



012701 
012721 
012721 
005021 
01272! 
012721 
005021 
012721 
005021 
005011 
005037 



104401 



012700 
004737 
012737 
005237 
004737 



T14RSTj 



025360' 

100204 

025370' 

OOOOIO 
024756' 

000400 
024756' 



SAVREG 




MOV 


0T14PK2,R1 


MOV 


$100204, CRD ♦ 


MOV 


*Ti4DTA,CRlV 


CLR 


CRD* 


MOV 


•6..CR1)* 


MOV 


♦T14BFR.CR1)* 


CLR 


CRD* 


MOV 


$256. t CRl)* 


CLR 


CRD* 


CLR 


CRD 


CLR 


T14BFR 


RTS 


PC 



ENDTST 



j SAVE THE REGISTERS 

I START OF THE PACKET 

I WRITE CHARA, WITH ACK, IE 

I ADDRESS OF CHARAISTICS DATA BLOCK 

j EXTENDED ADDRESS 

jSIZE OF DATA BLOCK IN BYTES 

j MESSAGE BUFFER ADDRESS 

iLENGTH OF MESSAGE BUFFER 



I CLEAR 1ST LOC IN MESSAGE BUFFER 
I RETURN 



LI 0037; 



TRAP 



C$ETST 



♦SBTTL TEST 3; DMA MEMORY ADDRESSING 



♦ ♦ 
TEST 



TEST DESCRIPTION 

This test verifies that the controller can properly address and 
access all available CPU memory (other than that occupied by the 
diagnostic and diagnostic supervisor code) for both reading (DATI) 
and writing (DATOi. Verified era tha LSI-11 Bus drivers for all 
available address lines. Up to this point only 16 bits have been 
used for DMA transfers. 

TEST STEPS 

REPEAT FROM 1 TO LOOPCNT 



BEGIN 

Do Subtest 1 
Do Sjbtest 2 
Do Subtest 3 
Do Subtest 4 

END 



Verify GET STATUS selected location* 
Verify message packets selected locations 
Verify Characteristic data selected locations 
Verify NXM to selected invalid addresses 



030200' 

016322' 

000012 

003150' 

0Ei0a6 ( 



003216' 



BGNTST 

MOV 
JSR 
MOV 
INC 
JSR 



OTST12ID.R0 
PC.TSTSETUP 
#10., LOOPCNT 
T3BFLG 
PC.MEMCK 



T12L00PJ 



TS:: 
»ASCII MESSAGE TO IDENTIFY TEST 
jOO INITIAL TEST SETUP 
I PERFORM 10 ITERATIONS 
iSET TEST FLAG 
j CHECK MEMORY 

I LOOP ON TEST LABEL 



18 
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SEQ 099 



478 
479 
480 
481 
482 
482 
484 
485 
486 
487 
-188 

4t5<* 

490 
^91 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 



507 
508 
509 
510 
511 
512 
513 
514 



515 
516 
517 
518 
519 
520 
52 i 
522 
523 
524 
525 
526 
527 



.SBTTL TEST 3j SUBTEST 1; GET STATUS SELECTED LOCATIONS 



026226 
C^6226 
026226 



026230 
026234 
026236 
026236 
026240 
026240 
026242 
026244 
026246 



026250 
026250 
026254 
026260 
026264 
026270 
026274 
026310 
026512 
026314 
026314 
026314 



104402 



004737 
1034C5 

010001 

104455 
0OO455 
003646 
011644 



012704 
00473/ 
005037 
010465 
004737 

103405 
01000]. 



104455 



♦ ♦ 



TEST 3: SUBTEST 1: 

SUBTEST DESCRIPTION. 

This subtest verifies the controller can fetch a get status 

command from all avai labia memory location*. 

Two word block* art tested one at a time by first setting 

all available memory to a background pattern of 125252. 

A Get Status command is then executed to 

each available memory 4k word block 

are determined by floating a 1 then 



various actresses in 
The various addresses 
a through the address bits. 



TEST STEPS: 



BEGIN 

Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message buffer 

REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE ANO ABOVE 32K 
BEGIN 

Get a valid modulo-4 test address 
Do a GET STATUS command from the test address 
ENO 
END 



BGNSU6 



015604' 



jWrite to TSSR to soft initialize 
JSR PCSOFINIT 
BCS 15$ 

NEXT.ERRNO 

MOV R0.R1 

ERRDF ERRNO , SF IERR . SFIMSG 



;//////////// BEGIN SUBTEST ////////// 

T3.1: 

TRAP C$BSUB 



I DO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT • OK 



j SAVE 
jDEVICE 



CONTENTS 



OF TSSR 
FATAL ERROR DURING INIT 

TRAP CtERDF 
.WORD 301 
.UORO SFIERR 
.WORD SFIMSG 



027770* 

031350 1 

003134' 

0OOOO0 

016146' 



15* 



a WRITE CHARACTERISTICS to setup a message buffer 



OU2PACKET.R4 
PC.T12SWRT 
KTENABLE 
R4.TS0BCR5) 
PC.CHKTSSR 
17$ 



17$: 



rov 

JSR 

CLR 

MOV 

JSR 

FORCERROR 

BCS 20* 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 12WRTSSR , PK TSSR 



iGET THE ADDRESS OF COMMAND 
iRESTOHE PACKET TO STARTING 
iTURN OFF KT-11 
i SET THE PACKET ADDRESS 
IWAIT FOR SSR TO SET 



PACKET 
VALUES 



iBR IF SSR SET IN 
I SAVE CONTENTS OF 

iDEVICE FATAL SSR 



CHKTSSR 
TSSR 

FAILED TO 
TRAP 



SET 



C$ERDF 



J8 
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SEQ 100 





026316 


000456 






026320 


030302* 






026322 


011656' 




528 








529 








530 








551 








532 


026324 


005037 


002222' 


533 


026330 


005037 


030O40' 


534 


026334 


012702 


030044' 


535 


026340 






536 


026340 


005037 


003134- 


537 


026344 


012201 




538 


026346 


0050O0 




539 


026350 


005737 


030040' 


540 


026354 


001407 




541 


026356 


016200 


177776 


542 


026362 


042700 


177774 


543 


026366 


012737 


000001 


544 


026374 


004737 


031046' 


545 


026400 


103034 




546 


026402 


013704 


030034' 


547 


026406 


013703 


030032' 


548 


026412 


004737 


031416' 


549 


026416 


042703 


177774 


550 


026422 


050304 




551 


026424 


0O4737 


017106' 


552 


026430 


010465 


000000 


553 


026434 


004737 


016146' 


554 


026440 






555 


026454 


103405 




556 


026456 


010O01 




557 


026460 






558 


026460 








026460 


104455 






026462 


000457 






026464 


030226' 






026466 


011674' 




559 


026470 








0264 70 


104406 




560 


0264 72 






561 


026472 






562 


026502 


020227 


030176' 


563 


026506 


103002 




564 


026510 


000137 


026540' 


565 


026514 


005737 


03OO40' 


566 


026520 


003012 




567 


026522 


005737 


003132' 


568 


026526 


001407 




569 


026530 


012737 


000001 


570 


026536 


012702 


030O44' 


571 


026542 


000137 


026340' 


572 


026546 


004737 


017106' 


573 


026552 
026552 








026552 


104403 




574 


026554 


005737 


002222' 



.WORD 302 

.WORD T12WKV^.SR 

.WORD PKTSSR 



j Verify a Gat Statu* con b« fatchad from aach addra9s 

iGct a valid modulo-4 taat addraas 

j Do o GET STATUS command from tha taat 



003134 



20$; CLR 


FATFLG 


CLR 


T12KT 


MOV 


♦T12BLK.R2 


T121LO0P: 




CLR 


KTENABLE 


MOV 


(R2)*,R1 


CLR 


RO 


TST 


T12KT 


BEQ 


25$ 


MOV 


-2CR2),R0 


BIC 


*tC<A1716>,RO 


MOV 


01, KTENABLE 


25*; JSR 


PC.T12C0NVERT 


BCC 


65$ 


MOV 


T12L0A0D.R4 


MOV 


T12HIA0D.R3 


JSR 


PCT12SETGET 


BIC 


atC<A1716>,R3 


BIS 


R3.R4 


JSR 


PC.KTOFF 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


F'ORCEI 


*R0P 321 



addraaa 

CLEAR FATAL ERROR FLAG 
TEST ABOVE 28K SWITCH 
POINT TO TEST PATTERN TABLE 

TURN OFF ABOVE 28K TEST FLAG 

GET TEST PATTERN ADDRESS 

ASSUME NO TEST ABOVE 28K 

TEST ABOVE 28K THIS TIME? 

BR IF NO 

GET TEST PATTERN AGAIN 

SAVE 18 BIT ADDRESS ONLY 

TURN ON ABOVE 28K TEST FLAG 

CONVERT TEST PATTERN TO TEST ADDRESS 

BR IF INVALID PACKET ADDRESS 

COPY CURRENT PACKET LOW ADDRESS 

COPY CURRENT PACKET HIGH ADDRESS 

SETUP CURRENT PACKET TO GET STATUS 

SAVE ADDRESS BITS 17*16 

SETUP 18 BIT PACKET ADDRESS 

TURN OFF KT-11 

SET THE PACKET ADDRESS TO EXECUTE 

WAIT FOR SSR TO SET 



32$ 



40$ 
65$ 



70$ 



BCS 40$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T12GETSSR , PKTGETS 



CKLOOP 



030040 



80$ 



FORCEXIT 80 


CMP 


R2.0T12TBE 


BHIS 


70$ 


JMP 


T121LO0P 


TST 


T12KT 


BGT 


80$ 


TST 


KTFLG 


BEQ 


80$ 


MOV 


01.T12KT 


MOV 


*T12BLK # R2 


JMP 


T121L00P 


JSR 


PC.KTOFF 


ENDSL« 





BR IF SSR SET 
SAVE CONTENTS 

I DEVICE FATAL ! 



tLOOP ON' ERROR. 



IN CHKTSSR 




OF TSSR 




SR FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


303 


.WORD 


T12GETSSR 


.WORD 


PKTGETS 


IF FLAG SET 




TRAP 


C$CLP1 


K TEST PATTERNS? 





MOOULO- 4 ADDRESS 
28K TESTING TOO? 



TST 



FATFLG 



j DOME ALL TSTBLK 
» BR IF YES 
I DO ANOTHER 
j DONE ABOVE 
iBR IF YES 

I ANY MEMORY ABOVE 28K ON SYSTEM? 
I BR IF NO 
l^.T SWITCH 

jRESET TEST PATTERN TABLE 
»D0 ABOVE 28K TESTING 
jTURN OFF KTli 

|\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10043; 

TRAP C$ESUB 
I ANY FATAL LRRORS ? 



I<8 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST 3: SUBTEST 1; GET STATUS SELECTED LOCATIONS 



SEQ 1C1 



575 026560 

576 026562 

577 026566 
578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 026566 
026566 
026566 

610 

611 

612 

613 026570 

614 026574 

615 026576 

616 026576 

617 026600 
026600 
026602 
026604 
026606 

618 
619 

620 026610 

621 026610 

622 026614 

623 026620 

624 026624 

625 026630 



001402 
004737 



017014 



RF.Q 
JSR 



100$ 
PC.CKDROP 



{BRANCH IF NOT 

I TRY TO DROP THE UNIT 



♦ *• 



100$: 

.SBTTL TEST 3: SUBTEST 2; HESSAGE PACKETS TO SELECTED LOCATIONS 

TEST 3t SUBTEST 2: 

SUBTEST DESCRIPTION: 

This subtest verifies the controller can deposit message packets 

to all available memory locations. 

Write Characteristics commands art executed with message 

buffer addresses set to various addresses in each available 

memory location. 

The various addresses are determined by floating a 1 then a 

through the address bits* 

TEST STEPS: 

BEGIN 

Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message buffer to compare 

REPEAT TOR SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE ANO ABOVE 32K 
BEGIN 

Get a valid modulo-4 test address 
Set the packet message buffer to the TEST ADDRESS 
Do a WRITE CHARACTERISTICS 

Restore the test message buffer to background pattern 
END 
END 



104402 



004 77,7 
103405 

010001 

104455 
000460 
003646' 

011644' 



012704 
004 737 
004737 
010465 
004737 



015604 



BGNSUB 



tWrite to TSSR to soft initialize 
JSR PCSOFINIT 
BCS 15$ 
NEXT.ERRNO 
MOV R0.R1 
ERRDF ERRNO , SFIERR , SFIMSG 



%//////////// BEGIN SUBTEST ////////// 

T3.2: 

TRAP C$BSUB 



} D0 SOFT INIT OF CONTROLLER 
jBR IF SOFT INIT - OK 

iSAVC CONTENTS OF TSSR 

j DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 

. WORD 304 

.WORD SFIERR 

.WORD SFIMSG 



027770' 

031350' 

017106' 

000000 

016146' 



:Do 
15$ 



a WRITE CHARACTERISTICS to setup a message buffer to compare 



MOV *T12PACKET,R4 

JSR PC.T12SURT 

JSR PC.KTOFF 

MOV R4,TSDB(^5) 

JSR PC^CHKTSSR 



jGET THE ADDRESS OF COMMAND PACKET 

iSET PACKET TO WRITE CHARACTERISTICS 

iTURN OFF KT-U 

jSET THE JACKET ADDRESS 

tWAIT FOR SSR TO SET 



TSV5 - HARDWARE TESTS MACRO M1113 01 -FEB -84 17:02 
TEST 3: SUBTEST 2i MESSAGE PACKETS TO SELECTED LOiATIONS 



L8 



SEQ 102 



626 026634 








FORCERROR 17$ 




627 026650 


103405 






BCS 


20$ 


iBR IF SSR SET IN CHKTSSR 


628 026652 


010001 






MOV 


R0.R1 


j SAVE CONTENTS OF TSSR 


629 026654 








NEXT.ERRNO 




630 026654 






17$: 


ERRDF 


ERRN0.T12WRTSSR, PKTSSR 


1 DEVICE FATAL SSR FAILED TO SET 


026654 


104455 










TRAP C$ERDF 


026656 


000461 










.WORD 305 


026660 


030302' 










.WORD T12WRTSSR 


026662 
631 
632 


011656' 










.WORD PKTSSR 






{Get 


a valid modulo-4 test address 




633 






»s*t 


the packet 


oveseaoe buffer to the test address 


634 






i Do a 


WRITE CHARACTERISTICS 




635 026664 


005037 


002222' 


20$: 


CL.R 


FATFLG 


1 CLEAR FATAL ERROR FLAG 


636 026670 


012703 


030044' 




hQV 


0T12BLK.R3 


j POINT TO TEST PATTERN TABLE 


637 026674 






T122L00P; 






638 026674 


C12301 






MOV 


CR3V.R1 


{GET TEST PATTERN ADDRESS 


639 026676 


010100 






MOV 


Rl.RO 


{GET ADDRESS ALL "18 BITS" 


640 026700 


042700 


177774 




BIC 


0177774, RO 


j LEAVE ONLY Al 7 ANO A16 


641 026704 


042701 


000003 




BIC 


03, Rl 


{GET RID OF A17 AND A16 


642 026710 


004737 


031046' 




JSR 


PC.T12C0NVERT 


{CONVERT TEST PATTERN TO TEST ADDRESS 


643 026714 


103402 






BCS 


25$ 


{BR IF VALID MESSAGE BUFFER ADDRESS 


644 026716 


000137 


027014' 




JMP 


150$ 


{GET ANOTHER TEST PATTERN TO TRY 


645 026722 


012704 


027770' 


25$: 


MOV 


0T12PACKET.R4 


{SET THE COMHANO PACKET ADDRESS 


646 026726 


004737 


031350' 




JSR 


PC.T12SWRT 


{SETUP T12PACKET TO WRITE CHAR. 


647 026732 


013737 


030034' 030000' 


HOV 


T12L0AD0,T120ATA 


{SETUP LOU ORDER MESSAGE BUFFER ADD. 


648 026740 


013737 


030032' 030002' 


MOV 


U2HIADD.T12DATA*2 


{SETUP HIGH ORDER MESSAGE BUFFER ADD. 


649 026746 


004737 


0171.06' 




JSR 


PC.KTOFF 


{TURN OFF KT-11 


650 026752 


010465 


000000 




MOV 


R4,TSDB(R5) 


{SET THE PACKET ADDRESS TO EXECUTE 


651 026756 


004737 


016146' 




JSR 


PC, CHKTSSR 


{WAIT FOR SSR TO SET 


652 026762 








FORCERROR 32$ 




653 026776 


103405 






BCS 


50$ 


{BR IF SSR SET IN CHKTSSR 


654 0270O0 


010001 






MOV 


R0.R1 


{SAVE CONTENTS OF TSSR 


655 027002 








NEXT.ERRNO 




656 027002 






32$ : 


ERRDF 


ERRNO, T12WRTSSR .PKTSSR 


{DEVICE FATAL SSR FAILED TO SET 


027002 


104455 










TRAP C$ERDF 


027004 


O0O462 










. WORD 306 


027006 


030302' 










.WORD T12WRTSSR 


027010 


011656' 










.WORD PKTSSR 


657 027012 






50*: 


CKLOOP 




{LOOP ON ERHOR, IF FLAG SET 


027012 


104406 










TRAP C$CLP1 


658 027014 






150$, 








659 027014 








FORCEXIT 160$ 




660 027024 


020327 


030176' 




CMP 


R3,OT12TBE 


{DONE ALL TST12BLK TEST PATTERNS? 


661 027030 


T«3002 






BHIS 


160$ 


{BR IF YES 


662 027032 


O00137 


02^674' 




JMP 


T122L00P 


{DO ANOTHER MODULO- 4 ADDRESS 


663 027036 


004737 


017106' 


160$, 


JSR 


PC.KTOFF 


iTURN OFF KT11 


664 02 7042 








ENDSU6 




t\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 


027042 












L 10044: 


027042 


104403 










TRAP C$ESUB 


665 027044 


005737 


002222' 




TST 


FATFLG 


{ANY FATAL ERRORS ? 


666 027050 


001402 






BEQ 


180$ 


{BRANCH IF NOT 


667 027052 


004737 


017014' 




JSR 


PC.CKDROP 


{TRY TO DROP THE UNIT 


668 027056 






180$« 








669 














6/0 








.SBTTL 


TEST 3j SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


671 






;♦♦ 









M8 



TSV5 - HARDWARE TESTS 
TEST 3: SUBTEST 3: 



672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 



701 
702 
703 
704 
705 
706 
707 
708 



709 
710 
711 
712 
713 
714 
715 
716 
71? 
718 
719 
720 
721 
722 



027056 
027056 
027056 



027064 
027066 
027066 
027070 
027070 
027072 
027074 
027076 



027100 
027104 
027110 
027114 
027114 
027120 
02712*? 
027124 
027130 
027134 
027140 
027142 



MACRO MU13 Ql-FEB-84 17:02 
CHARACTERISTIC DATA SELECTED LOCATIONS 

j TEST 3: SUBTEST 3? 
i SUBTEST DESCRIPTION: 



SEQ 103 



005037 
005037 
012703 

005037 
012301 
010100 
042700 
042701 
005737 
001407 
016300 



the controller con f e ten a 
data block from nil available 



This s*.»btest v*rifies 

Write Characteristics 

memory locations. 

Write Characteristics commands are executed with 

characteristic data blocks at various memory addresses. 

The various memory addresses are determined by floating 

a 1 then a through the address bits, 

TEST STEPS; 

BEGIN 

Write to TSSR to soft initialize 

REPHAT FOR SELECTEO VALID ADDRESSES IN DIAGNOSTIC TREE SPACE AND ABOVE 32K 
BEGIN 

Get a valid test address 

Set the test packet characteristics data pointer to the 

test address. 
Store expected characteristic data in test address block 
Do a WRITE CHARACTERISTIC command 
END 



END 



J -- 



BCNSUB 



104402 



004737 015604 
103405 

010001 

104455 
000463 
003646' 
011644' 



jWrite to TSSR to soft initialize 
JSR PC.SOFINIT 
BCS 20$ 
NEXT.ERRNO 
MOV RO.R1 
ERRDF ERRNO , SFIERR , SF IMSG 



002222' 
030040' 
030044' 

003134 



177774 
000003 
030040' 

177776 



{Get a valid test address 



20$: CLR 


FATFLG 


CLR 


T12KT 


MOV 


4T12BLK.R3 


T123L00P; 




CLR 


KTENABLE 


MOV 


(R3)*,R1 


MOV 


Rl.RO 


BIC 


0177774, RO 


BIC 


03. Rl 


TST 


T12KT 


BEQ 


25$ 


MOV 


-2(R3),R0 



%//////////// BEGIN SUBTEST ////////// 

T3.3{ 

TRAP CSBSUB 



$ DO SOFT INIT OF CONTROLLER 
I BR IF SOFT INIT « OK 

tSAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 307 
.WORD SFIEfW 
.WORD SFIMSG 



{CLEAR FATAL ERROR FLAG 
{TEST ABOVE 28K SWITCH 
iPOINT TO TEST PATTERN TABLE 



{TURN OFF 

iGET TEST 

{GET ADC "SS At I 

{LEAVE ONLY Al / 

{GET RID OF A17 

{TEST ABOVE 28K 

jBR IF NO 

{GET TEST PATTERN 



ABOVE 28K TEST FLAG 
PATTERN ADDRESS 
"18 BITS" 
AND A1C 

ANu A16 
THIS TIME? 



AGAIN 



N8 



TSV5 - HARDWARE TESTS MACRO M1113 01-FED-84 17:02 
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723 
724 
725 
726 

727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
73V 

738 
739 

740 
741 
742 



743 

744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 



757 
758 
75S 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
7 70 
771 
772 



027146 
027152 
027160 
027164 
027166 

027172 
027176 
027202 
027210 
027216 

027222 
027226 
027232 
027236 
027252 
027254 
027256 
027256 
027256 
027260 
027262 
027264 
027266 
027266 
027270 
027270 
027274 
027276 
027302 
027306 
027310 
027314 
027316 
027324 
027330 
027334 
027340 
027340 
027340 
027342 
027346 
027350 
027534 



042700 
012737 
004737 
103402 
0OC137 

012704 
004737 
013 764 
013764 
004737 

004737 
010465 
004737 

103405 
OiOOOl 



104455 
000464 
030302' 
011656' 

104406 

020327 
103002 
000137 
005737 
003012 
005737 
001407 
012737 
012703 
000137 
004737 



104403 
005737 
001402 
004737 



177774 
000001 
031046' 

027270' 

027770' 
031350' 
030034' 
030032' 
031460' 

017106' 

000000 

016146' 



030176' 

027114' 
030040' 

003132' 

000001 
030044' 
027114' 
017,06' 



002222' 
017014' 



003134 



25: 1 



{Set 
30$ : 



000002 
000004 



BIC 
MOV 
JSR 
BCS 
JMP 
the test 
MOV 
JSR 
MOV 
MOV 
JSR 
jDo a WRITE 
JSR 
MOV 
JSR 



4tC<A1716>,R0 
♦l.KTENABLE 
PC.T12C0NVERT 
30$ 
60* 
packet characteristics 
0T12PACKET.R4 
PC.T12SWRT 
T12L0ADD.PKL0WCR4) 
T12HIADD,PKHI(R4) 
PC T12CHAR 
CHARACTERISTIC command 
PC.KTOFF 
R*,TSDB(R5) 
PC.CHKTSSR 
32$ 



32$: 

40$: 
60$: 

65$: 



FORCERROR 

BCS 40$ 

MOV R0.R1 

NEXT.tRRNO 

ERRDF ERRNO , T12WRTSSR , PKTSSR 



SEQ 104 



I SAVE 18 BIT ADDRESS ONLY 
j TURN ON ABOVE 26!< TEST FLAG 
iCONVERT TEST PATTERN TO TEST ADDRESS 
l BR IF VALID TEST ADDRESS 
tGET NEXT TEST PATTERN 
data pointer to the test address 

j GET THE ADDRESS OF COMMAND PACKET 
j RESTORE PACKET TO STARTING VALUES 
I STORE CHAR. DATA PTR LOW ADDRESS 
j STORE CHAR. DATA PTR HIGH ADDRESS 
j STORE EXPECTED DATA IN DATA BLOCK 

j TURN OFF KT-11 

j SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

jBR IF SSR SET IN CHKTSSR 
j SAVE CONTENTS OF TSSR 



030040 



70$: 



75$: 



CKLOQP 



cnp 

BMIS 

JMP 
TST 
BGT 
TST 
BEU 
MOV 
MOV 
JMP 
JSR 
ENDSUG 



TIjT 
BEQ 
JSR 



R3.0T12TBE 

65$ 

T123L0OP 

T12KT 

70$ 

KTFLG 

70$ 

41.T12KT 

♦T12BLK.R3 

T123L00P 

PCJ<T0FF 



FATFLG 

75$ 

PC.CKDROP 



{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 308 

.WORD T12WRTSSR 

.WORD PKTSSR 

{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

{DONE ALL TSTbLK TEST PATTERNS? 
{BR IF YES 

iDO ANOTHER MODULO- 4 ADDRESS 
j DONE ABOVE 28K TESTING TOO? 
{BR IF YES 

{ANY MEMORY ABOVE 28K ON SYSTEM? 
{BR IF NO 
;SET SWITCH 

{RESET TEST PATTERN TABLE 
{DO ABOVE 28K TESTING 
{TURN OFF KT11 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\ 

L 10045: 

TRAP C$ESU6 
{ANY FATAL ERRORS ? 
{BRANCH IF NOT 
{TRY TO DROP THE UNIT 



.SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 



TEv. " 3: SUBTEST 4; 
SUBTEST DCSCRIPTION: 



This subtest verifiss the NXM error bit in the TSSR 

register is set when attempting to fetch data (a characteristic 

data block) from selected nonexistent locations. 

If NXM fails to set it is likely that an LSI 11 Bus driver is 

failing to assert an address line. 



B9 



TSV5 - HARDWARE 
TEST 3: SUBTEST 



773 
7 /4 
775 
776 
777 
778 
779 
780 
761 
782 
78? 
784 
78% 
786 
787 
788 
789 
790 
791 
79? 
793 
794 
795 
796 
797 
798 
799 
600 
001 



TESTS MACRO M1113 01-FEB-84 1 7 i 02 
4 j NXM TO SELECTED INVALID ADDRESSES 



SEQ 105 



802 
803 
604 
605 
806 
807 
808 
809 
610 
811 
812 
813 
814 
815 



616 

617 
818 
319 

820 
821 



02 7354 
027354 

027354 



027356 
027356 
027362 
027364 



027370 
027374 
027376 
027376 
027400 
027400 
027402 
027404 
027406 



027410 
027410 
027412 
027416 
027422 



Addreaeee teeted Include all combtnet lone of high-order addreee 
bit* ( i .• bit* 16-21). 

CAUTION 

The LSI BUS drivere for all aval labia addreee l.neeC 16-21) 
ere only checked wnen running on a PDP-11 eyetem with mora than 
128K worde of memory! 
*************#**#.*********************#************ + *************** 

TEST STEPS; 

BEGIN 

Write to TSSR to aoft initialize 

Do a Mrita character i at !c command 
Invert the extended feature* awitch 

REPEAT FOR SELECTED NON-EXlbTENT MEMORY ADDRESSES 
BEGIN 

Get an invalid teat addreee 

Set the teat packet character let ice data pointer to the 

teet ridr***. 
Do a WRITE CHARACTERISTIC command 

If TSSR rag later NXM bit not *et then print error meesaoe 
END 
END 



BGNSUB 



104402 



005737 003136 

001002 

000137 027716 



004737 015604 
103405 

OlOOOi 

104455 
000465 
003646* 
011644' 



104406 

012704 027770' 

004737 031350' 

005037 003134 .» 



51} 



TST 
BNE 

JMP 



NXMFLG 

101 

NOEXTF 



■Write to TSSR to aoft initialise 

10$: JSR PC, SOT INI T 
BCS 111 
NCXT.ERRNO 
MOV R0.R1 
ERRDF ERRNO.SFIERR.SFIMSG 



\//////////// BEGIN SUBTEST ////////// 

T3,4i 

TRAP CIBSUB 



iGOT ENOUGH MEMORY? 
I IF SET STAY 
iLEAVE IF NOT SET 



iDO SOFT INIT Of CONTROLLER 
|BR IF SOFT INIT ■ OK. 

I SAVE CONTENDS OF TSSR 

jDEVICE FATAL ERROR DURING INIT 

TRAP CIEKDF 

.WORD 

.WORD 

.WORD 



309 

SFIERR 

SFIMSG 



iDo a WRITE CHARACTERISTIC command 1C* to invert awitch 
lili CKLOOP jLOOP IF SELECTED 



MOV ♦T12PACKET.R4 
JSR PC.T12SWRT 
CLR KTENABLE 



TRAP CtCLPl 
l GET THE ADDRESS OF COMMAND PACKF T 
iRESTQRE PACKET TQ STARTING VALUES 
I TURN OFF KT-U 



TEST 3: 



HARL 



§88Ve§f 1? s J8h T5 A iieE?H6 3 iN^L^ B A83R^^ 



C9 



SEQ 106 



825 
624 
825 
826 
827 
828 
829 



830 

831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 



856 
859 

860 
861 



862 
863 
864 
865 
866 
867 



027426 
027432 
027436 
027452 
027454 
027456 
027456 
027456 
027460 
027462 
027464 
027466 
027466 
027470 



0274 74 
027500 
027500 
027506 
0271514 



027514 
027520 
027524 
027532 



027540 
027544 
027550 
027554 
027570 
027572 
027574 
027574 
027574 
027576 
027600 
027602 
027604 
027610 
027610 
027612 
027622 
027622 
027624 

027626 
02 /626 
02 7632 
027646 
027652 



010465 000000 
004737 016146 

103405 
010001 



104455 
000466 
030302* 

011656* 

104406 

004737 020734' 



005037 002222 



15*5 



MOV R4.TSDBCR5) 

JSR PC, CHKTSSR 

FORCERROR 151 

BCS 17$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRN0.U2WRTSSR, PKTSSR 



I SET THE PACKET ADDRESS 
jWAIT FOR SSn TO SET 

iBR IF SSR SET IN CHKTSSR 
I SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 



013737 
013737 



012 704 
004737 
013764 
013764 



104406 



104410 
000076 



17$: CKLOOP 

JSR PC. INVERT 
tGat an invalid taat addrass 

CLR FATFLG 





TRAP 


C$ERDF 




.WORD 


310 




.WORD 


T1PWRTSSR 




.WORD 


PKTSSR 


lLOOP IF SELECTED 








TRAP 


CICLP1 


1 INVERT THE 5WITCH 







005142 
003140 



050032' 
030034' 



20$: 

25$ j 

MOV 
MOV 

T124L00P: 



NXMMI.T12MIA0D 
NXHL0.T12L0ADD 



jCLEAR FATAL ERROR FLAG 

I SAVE TEST AOORESS HIGH 
l SAVE TEST ADDRESS LOW 



iSat tha ta^t packet charnctariat ica data pointar to tha 
l taat eddr%*a. 



027770 
031350 
030054 
050032 



000002 

000004 



004737 017106* 
010465 OOOOOO 
004737 016060' 

105407 
010001 



104455 
000467 
050302 
011656 

005237 



30$: MOV #fl2PACKET,R4 

JSR PC.T12SURT 

MOV T 12L0AO0 , PKLOWC R4 ) 

MOV T 12HIAD0 . PKHI ( R4 ) 

iDo a WRITE CHARACTERISTIC command 

JSR PC.KTOFF 

MOV R4,TSD6(R5) 

JSR PC.WAITF 

FORCERROR 32$ 

BCS 40$ 

MOV R0»R1 

NEXT.ERRNO 
32$: 



iGET THE ADORESS OF COMMAND PACKET 
iRESTORE PACKET TO STARTING VALUES 
1 STOKE CHAR. DATA PTR LOW ADORESS 
I STORE CHAR. DATA PTR HIGH ADORESS 



I TURN OFF KT-11 

I SET THE PACKET ADORESS TO EXECUTE 

iWAIT FOR SSR TO SET 

»BR IF SSR SET IN CHKTSSR 
iSAVE CONTENTS OF TSSR 



002222 



40$ 



ERRDF ERRN0.T12WRTSSR, PKTSSR 


IDEVICE FATAL SSR FAILED TO SET 






TRAP 


C$ERDF 




.WORD 


311 




.wwo 


T12WRTSSR 




.WORD 


PKTSSR 


INC FATFLG 


l SET FATAL ERROR FLAG 




CKLOOP 


jLOOP ON ERROR, IF FLAG SET 






TRAP 


C$CLP1 


FORCERROR 45$,N0TSSR 






ESCAPE sue 


iBY-PASS SUBTEST IF FATAL ERROR 






TRAP 


CIFSCAPE 




.WORD 


L 10046'* 



016501 000002 

032 701 0Q400Q 
0Q1020 



i If TSSR raglatar NXM bit not ©at than print arror <na««aga 
45$i 

MOV TSSRCR5).R1 iGET TSSR CONTENTS 

FORCERROH 5<>$ 

BIT WXM 4 R1 jNXM SET? 

BNE 60$ i BR IF YES 



\m s^m® mtn w®MWxu$k(.miMi& 



D9 



SEQ 107 



868 027654 


005237 


030032* 


869 027660 


022737 


000004 030032 


870 027666 


001312 




871 027670 






872 027670 


013737 


030034' 002240 


873 027676 


013737 


030032* 002236 


874 027704 






027704 


104456 




027706 


000470 




027710 


030737' 




027712 


011736' 




875 






876 027714 






027714 


104406 




877 027716 






878 027716 






879 027716 


004737 


017106* 


880 027722 






027722 






027722 


104403 




881 027724 


005737 


002222' 


882 027730 


001402 




883 027732 


004737 


017014' 


884 027736 


004737 


016270' 


885 027742 


103002 




886 027744 


000137 


026226' 


887 027750 






888 027750 


004737 


017106' 


889 027754 


005037 


003150* 


890 027760 






027760 


104432 




027762 


001540 




891 






892 






893 






894 






895 






896 






898 027764 






900 027770 






901 027770 


100004 




902 027772 


030000' 




903 027774 


000000 




904 027776 


000010 




905 






906 030000 






907 030000 


03OO12' 




908 030002 


OOOOOO 




909 030004 


000016 




910 030006 


000000 


OOOOOO 


911 






912 030012 






913 






914 050032 


000000 




915 030034 


OOOOOO 




916 030036 


OOOOOO 




917 030040 


OOOOOO 





52$: 



INC T12HIADD 

CMP *4,T12HIADD 

BNE T124L00P 

NEXT.ERRNO 

MOV T12L0ADD.ERRL0 

MOV T12HIADD.ERRHI 

ERRMftD ERRNO , T 12NXM , ADDSSR 



60$ 



CKLOOP 



90$: 






NOEXTF : 








JSR 


PC.KTOFF 




ENDSUB 






TST 


FATFL.G 




BEQ 


100$ 




JSR 


PC.CKDROP 


100$: 


JSR 


PC.TSTLOOP 




BCC 


105$ 




JMP 


T12L00P 


105$: 








JSR 


PC.KTOFF 




CLR 


T3BFLG 




EXIT 


TST 



I LOCAL STORAGE FOR THIS TEST 
I- 



♦ BLKB 
T12PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 


10-<.-T! 

100004 

T12DATA 



8. 


5V 


T12DATA: 

.WORD 
.WORD 
.WORD 
,WORD 


T12BFR 


14. 
0,0 




T12BFR: .BLKW 


8. 




T12HIADD: 
T12L0A0D: 
T12PAR6: 
T12KT: 


.WORD 
.WORD 
.WORD 
.WORD 









|TSU05 BWP HIGH ADDRESS COLNTER 
5 TSU05 CHECK TO SEE IF AT 19 BITS YET 
|TSU05 TRY BITS 17 ANO 18 BEFOR ERROR 

I MEMORY TEST ADDRESS LOU 

I MEMORY TEST ADDRESS HIGH 

I REPORT ADDRESS AND TSSR ERROR 

TRAP C$ERHRO 
.WORD 312 
.WORD T12NXM 
.WORD ADDSSR 

I LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



l TURN OFF KT11 



wwwsww 



END SUBTEST 
L 10046: 

TRAP C$ESUB 
j ANY FATAL ERRORS ? 
I BRANCH IF NOT 
I TRY TO DROP THE UNI T 
iSHOULD WE DO ITERATIONS? 
iBR IF NO 
lLOOP UNTIL ITERATION COUNT DONE 

I TURN OFF MEMORY MANAGEMENT 

iCLEAR TEST FLAG 

lALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10042 



>COHMANO PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND, WITH ACK 

j ADDRESS OF CHARACTERISTICS 8L0CK 

I STARTING VALUE OF BLOCK SIZE 

tCHARACTERISTICS DATA BLOCK 
l LOW ADDRESS OF MESSAGE BUFFER 
jHIGH ORDER Of MESSAGE BUFFER 
iLENGTH OF MESSAGE BUFFFR 



I MESSAGE BUFFER 

i HIGH ADDRESS 

jLOW ADDRESS 

I ADDRESS IN PAR FORMAT 

I TEST ABOVE 28K SWITCH 



E9 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 3j SUBTEST 4} NXM TO SELECTED INVALID ADDRESSES 



SEQ 108 



918 030042 

919 

920 

921 

922 

923 

924 030044 

925 030046 

926 030050 

927 030052 

928 030054 

929 03O056 

930 030060 

931 030062 

932 030064 

933 030066 

934 030070 

935 030072 

936 03O074 

937 030076 
93© 030100 

939 030102 

940 030104 

941 030106 

942 030110 

943 030112 

944 030114 

945 030116 

946 030X20 

947 030122 

948 030124 

949 030126 

950 030130 

951 030132 

952 030134 

953 030136 

954 030140 

955 030142 

956 030144 

957 030146 

958 030150 

959 030152 

960 030154 

961 030156 

962 030160 

963 030162 

964 030164 

965 030166 

966 030170 

967 030172 

968 030174 

969 030176 
970 

971 
972 
973 
974 030200 



000000 



000001 
000002 
000003 
000005 
000006 
000007 
000011 
000012 
000013 
000021 
000022 
000023 
00OO41 
000042 
000043 
000101 
000102 
000103 
000201 
000202 
000203 
000401 
000402 
000403 
001001 
001002 
001003 
002001 
002002 
002003 
004001 
004 O02 
004003 
010001 
010002 
010003 
020001 
020002 
020003 
040001 
040002 
040003 
100OO1 
100002 
100003 
177777 



104 



T124TST? 
1* 


.WORD 


1 TABLE OF ADDRESSES 

\ 


T12BLK; .WORD 


000001 


.WORD 


000002 


.WORD 


000003 


.WORD 


000005 


.WORD 


000O06 


.WORD 


000007 


.WORD 


000011 


.WORD 


000012 


.WORD 


000013 


.WORD 


000021 


.WORD 


000022 


.WORD 


000023 


.WORD 


000041 


.WORD 


000042 


.WORD 


000043 


.WORD 


000101 


.WORD 


000102 


.WORD 


000103 


.WORD 


000201 


.WORD 


000202 


.WORD 


000203 


.WORD 


000401 


.WORO 


000402 


.WORD 


000403 


.WORD 


001001 


.WORD 


001002 


.WORD 


001003 


.WORD 


002001 


.WORO 


002002 


.WORD 


002003 


.WORD 


004001 


.WORD 


004002 


.WORD 


004003 


.WORD 


010001 


.WORD 


010002 


.WORO 


010003 


.WORD 


020001 


.WORO 


020002 


.WORD 


020003 


.WORD 


040001 


.WORD 


040002 


.WORD 


040003 


.WORD 


100001 


.WORD 


100002 


.WORD 


100003 


T12TBE: .WORD 





jADDRESS TEST BIT 



177777 



I ♦ 



j LOCAL TEXT MESSAGES FOR TEST 



115 



I - 



101 TST12IDJ 



.ASCIZ 'DMA Memory Addressing' 



F9 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 



156 T12GETSSR 

156 T12WRTSSR 

163 T12MSGBUF 

143 T12BKGND: 

160 T12NINTs 

151 T12DPR: 

123 T12NXM: 



SEQ 109 



ed' 



975 030226 


103 


157 


976 030302 


103 


157 


977 030371 


115 


145 


978 030467 


102 


141 


979 030555 


105 


170 


980 030646 


127 


162 


981 030737 


124 


123 


982 






983 






984 






985 






986 






987 






988 






989 






990 






991 






992 






993 






994 






995 






996 






997 






998 






999 






1000 






1001 






1002 






1003 






1004 031046 






1005 031046 






1006 031052 


005037 


030034' 


1007 031056 


005037 


030032' 


1008 031062 


C05037 


030036' 


1009 031066 


042701 


170OO0 


1010 031072 


010005 




1011 031074 


004737 


017106' 


1012 031100 


013702 


003124' 


1013 031104 


062702 


000020 


1014 031110 


060102 




1015 031112 


042702 


000003 


1016 031116 


013703 


003130' 


1017 031122 


162703 


000020 


1018 031126 


010237 


030034' 


1019 031132 


010237 


030036' 


1020 031136 


020203 




1021 031140 


101007 




1022 031142 


020237 


003124' 


1023 031146 


103007 




1024 031150 


005737 


003134' 


1025 031154 


001004 




1026 031156 


000424 




1027 031160 


162702 


000020 


1028 031164 


000754 




1029 031166 






1030 031166 


005737 


003134' 


1031 031172 


001420 





, ASCIZ 'Content* of TSSR Incorrect After GET STATUS' 

.ASCIZ 'Contents of TSSR Incorrect After WRITE CHARACTERISTICS' 

.ASCIZ 'Message Buffer Contents Incorrect After WRITE CHARACTERISTICS' 

.ASCIZ 'Background Pattern Disturbed By WRITE CHARACTERISTICS' 

.ASCIZ 'Expected Interrupt Not Received On WRITE CHARACTERISTICS' 

.ASCIZ 'Write Characteristic data In ram docs not match expected' 

.ASCIZ 'TSSR NXM bit failed to set when non-existent memory address specif t 



,EVEN 



ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
DIAGNOSTIC FREE SPACE 15 BETWEEN THE ENO OF THE DIAGNOSTIC AND THE 
BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 
IF MEMORY ABOVE 28K SPECIFIED (VIA Rl) THEN PAR 6 IS SET 
TO THE RELOCATION BASE. 



INPUTS: 



RO 
Rl 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OUPTUTS: 

T12PAR6 - ADDRESS BIASED TO PAR6 IF >23K UNOER TEST 

T12HIADD - HIGH ORDER ADDRESS IN NON PAR6 FORMAT 

T12L0ADD - LOW ORDER ADDRESS IN NON PAR6 FORMAT 

C BIT ■ 1 IF GOOD ADDRESS RETURNED 

C BIT - IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 



T12C0NVERT: 






SAVREG 






CLR 


T12L0AD0 j 




CLR 


T12HIADD i 




CLR 


T12PAR6 i 




BIC 


*tC<7777>.Rl j 




MOV 


R0,R5 » 




JSR 


PC.KTOFF , 




MCV 


FREE.R2 i 




ADD 


016,. R2 i 




ADD 


R1.R2 i 




BIC 


*3,R2 i 


25$; 


MOV 


FREEHI.R3 i 




sue 


♦16., R3 j 




MOV 


R2,T12L0A0D i 




MOV 


R2.T12PAR6 i 




CMP 


R2,R3 j 




BHI 


35$ i 




CMP 


R2.FREE i 




BHIS 


50$ i 




TST 


KTENABLE i 




BNE 


50$ i 




BR 


90$ » 


35$: 


SUB 


♦16., R2 j 




BR 


25$ ; 


50i: 








TST 


KTENABLE » 




BEQ 


100$ j 



SAVE R1-R5 UNTIL NEXT RETURN 

CLEAR LOW ADDRESS 

CLEAR HIGH ADDRESS 

CLEAR PAR6 BIASED ADDRESS 

FORCE TO LOWER 12 BITS OF ADDRESS 

SAVE HIGH ORDER ADDRESS BITS 

SHUTOFF MEMORY MANAGEMENT 

GET FIRST FREE ADDRESS 

IN CASE TEST PATTERN-0 

ADD IN TEST PATTERN 

MAKE IT MOOLC0-4 

GET LAST FREE ADDRESS 

SAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER) 

SAVE POSSIBLE LOW ADDRESS 

SAVE IT IN PAR6 BIASED TOO 

IS THIS ADDRESS ABOVE FREE SPACE? 

BR IF YES 

IS IT IN FREE SPACE? 

BR IF YES- ITS GOOD 

TESTING ABOVE 28K? 

BR IF YES 

BR IF NOT IN FREE SPACE 

FORCE FIT THE TEST PATTERN 

TRY THIS TEST PATTERN ADDRESS 

TESTING ABOVE 26K? 
BR IF NO 



G9 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 

TST 
BEQ 
JSR 
MOV 
MOV 
MOV 
JSR 
MOV 
BCS 
90*: CLC 

BR 
100$: SEC 
105$: RTS 



SEQ 110 



1032 031174 


005737 


003132* 


1033 031200 


001413 




1034 031202 


004737 


017070' 


1035 031206 


010500 




1036 031210 


010037 


030032* 


1037 031214 


010201 




1038 031216 


004737 


017130' 


1039 031222 


010037 


030036' 


1040 031226 


103403 




1041 031230 


000241 




1042 031232 


000401 




1043 031234 


000261 




1044 031236 


000207 




1045 






1046 






1047 






1048 






1049 






1050 






1051 






1052 






1053 






1054 






1055 






1056 






1057 






1058 






1059 






1060 






1061 






1062 






1063 






1064 






1065 






1066 






1067 






1066 






1069 






1070 






1071 






1072 






1073 031240 






1074 031240 






1075 031244 


012701 


002242' 


1076 03125C 


012702 


000201 


1077 031254 


005003 




1078 031256 


004737 


016146' 


107° 031262 


112765 


OOOOOO 


1080 031270 


004737 


016146' 


1081 031274 


010265 


OOOOOO 


1082 031300 


004737 


016146' 


1083 031304 


116511 


OOOOOO 


1084 031310 


122124 




1085 031312 


001401 




1086 031314 


005203 




1087 031316 


005202 




1089 031320 


020227 


000203 



KTFLG 

904 

PC.KTCN 

R5.R0 

R0.T12HIADD 

R2.R1 

PC.SETMAP 

R0.T12PAR6 

105$ 

105$ 

PC 



,ANY MEMORY ABOVE 28K? 

j BR IF NO 

jTURN ON MEMORY MANAGEMENT 

l GET HIGH ORDER ADDRESS 

I SAVE POSSIBLE HIGH ADDRESS 

I GET COMPUTED LOW ORDER ADDRESS 

I RETURN PAR6 BIASED ADDRESS IN RO 

I COPY PAR6 BIASED ADDRESS 

I BR IF VALID ADDRESS 

»CLR C BIT FOR FAILURE 

[SET SUCCESS 
iRETURN 



ROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 
R5 



OUTPUT: 



CARRY 



ADDRESS Of THE COMMANO PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES n ACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ SET TO 2 FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



OOOOOO 



T12CKRAM- « 






SAVREG 






MOV 


ORAMOATA, Rl 




MOV 


♦RMPKTBEG.R2 




CLR 


R3 




JSR 


PC.CHKTSSR 




MOVB 


*C,TSDB(R5) 


10$: 


JSR 


PC.CHKTSSR 




MOV 


R2.TSDBCR5) 




JSR 


PC.CHKTSSR 




MOVB 


TSBACR5),(R1) 




CMPB 


(R1)>,(R4)» 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 




CMP 


R2.0RMPKTBEG* 



i SAVE THE GENERAL REGISTERS 

; ADDRESS TO SAVE THE RAM DATA 

{BYTE ADDRESS OF FIRST RAM DATA 

i CLEAR THE ERROR FLAG 

jWAIT FOR SSR 

I SET MAINTENANCE MODE 

iWAIT FOR SSR TO SET 

I SELECT NEXT RAM ADDRESS 

jWAIT FOR SSR TO SLT 

■READ THE RAM DATA 

I COMPARE TO EXPECTED 

j BRANCH IF OK 

jSET ERROR FLAG 

j ADDRESS OF NEXT RAM LOCATION 

jDQNE 2 BYTES? 
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TSV5 - HARDWARE TESTS 
TEST 3: SUBTEST 4; NXM TO 



MACRO M1113 01-FEB-84 17:< 
ELECTED INVALID ADDR^^I 



SEQ 111 



1089 031324 


002761 




1090 031326 


005703 




1091 031330 


001402 




1092 031332 


000241 




1093 031334 


000401 




1094 031336 


000261 




1095 031340 


012737 


000002 


1096 031346 


000207 




1097 






1098 






1099 






1100 






1101 






1102 






1103 031350 






1104 031350 






1105 031354 


012701 


027770' 


1106 031360 


012721 


100004 


1107 031364 


012721 


030000' 


1108 031370 


005021 




1109 031372 


012721 


000010 


1110 031376 


012721 


030012' 


1111 031402 


005021 




1112 031404 


012721 


000016 


1113 031410 


005021 




1114 031412 


005011 




1115 031414 


000207 




1116 






1117 






1118 






1119 






1120 






1121 






112? 






1123 






1124 






1125 






1126 031416 






1127 031416 






1128 031422 


010401 




1129 031424 


005737 


003134' 


1130 031430 


001404 




1131 031432 


010300 




1132 031434 


004737 


017130' 


1133 031440 


010001 




1134 031442 


012700 


000017 


1135 031446 


052700 


100000 


1136 031452 


010021 




1137 031454 


005021 




1138 031456 


000207 




1139 






1140 






1141 






1142 






1143 






1144 






1145 







002302 





BLT 


10$ 




TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50*: 


MOV 


02.RAMSIZ 




RTS 


PC 



j3R IF NO 

I WAS AN ERROR FOUND ? 

I BRANCH IF NOT 

j CLEAR CARRY TO SHOW ERROR 

I AND EXIT 

{SHOW GOOD COMPARE 

, SETUP RAMSIZ 

j RETURN 



i ♦ 

{ROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 

I - 



T12SWRT: 




SAVREG 




MOV 


*T12PACKET,R1 


MOV 


0100004.CR1)* 


MOV 


*U2DATA f CRl)* 


CLR 


CRD* 


MOV 


#8., CRD* 


MOV 


*T12BFR,(R1)* 


CLR 


CR1)* 


MOV 


*14. ,(Rl)t 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 



I SAVE TIC REGISTERS 

{START OF THE PACKET 

{WRITE CHARACTERISTICS WITH ACK 

I ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



{RETURN 



ROUTINE TO SETUP A GET STATUS COMMANO PACKET AT CURRENT PACKET ADDRESS 

R3 HIGH ORDER PACKET ADDRESS 

R4 LOW ORDER PACKET ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 



T12SETGET: 

SAVREG 

MOV 

TST 

BEQ 

MOV 

JSR 

MOV 

10$: MOV 

BIS 
MOV 
CLR 
RTS 



R4.R1 

KTENABLE 

10$ 

R3.R0 

PCSETMAP 

R0.R1 



{SAVE THE REGISTERS 

i GET LOW ORDER ADDRESS 

{TESTING ABOVE 28K? 

:8R If NO 

{GET HIGH ORDER ADDRESS 

{RETURN ADDRESS BIASED TO PAR6 IN RO 

tGET A0DRES3 



OP.GETSTATUS.RO {GET STATUS COMMAND CODE NO IE 

*P.ACK,RO tSET ACK 

RO.CRL)* t STORE GET STATUS IN PACKET 

CRD* {CLEAR UNUSED WORD 

PC {RETURN 



ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TES* ADDRESS 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 3: SUBTEST 4j NXM TO SELECTED INVALID ADDRESSES 



19 



SEQ 112 



1146 
1147 

1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 



031460 
031460 
031464 
031470 
031474 
031500 
031502 
031506 
031510 
031512 
031514 
031516 
031520 

031522 
031522 
031522 



1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 

1171 

1172 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 



1193 



1194 

1195 
1196 
1197 
1198 
1199 



031524 
031524 



031524 
031530 
031532 
031536 
031542 
031546 
031554 



031554 
031554 
031554 
031556 
031556 
031562 
031564 
031570 
031572 
031576 
031602 
031606 



012700 
013701 
005737 
001402 

013701 
012021 
012021 
012021 
012G21 
012021 
000207 



104401 



005737 
001402 
005237 
012700 
004737 
012737 



104402 

CIS.7C0 

104*i<U 
005737 

001402 
000137 
004737 
004737 
004737 



030000 
030034 
003134 

030036 



T12CHAR 


• 
'SAVREG 






MOV 


*T12DATA,R0 




MOV 


T12L0ADD.R1 




TST 


KTENABLE 




BEQ 


10$ 




MOV 


T12PAR6,R1 


10$: 


MOV 


(RO)»,CRi> 




MOV 


CR0)*,C31>* 




MOV 


CR0)*,CR1)* 




MOV 


(RO)f.(Rl)* 




MOV 


(H0)*,(R1)» 




RTS 


PC 



jSAVE R1-R5 UNTIL NEXT RETURN 

jGFT T12PACKET DATA POINTER 

! ASSUME NOT ABOVE 28K 

j TESTING ABOVE 28K? 

I BR IF NO 

l SET TEST ADDRESS ABOVE 28K 

j STORE DATA WORD 1 

j STORE DATA WORD 

j STORE DATA WORD 

I STORE DATA WORD 

i STORE DATA WORD 

j RETURN 



ENDTST 



L 1004 2: 



TRAP 



CSF.TST 



.SBTTL TEST 4: RAM EXERCISER TEST 



j THIS TEST USES THE READ ANO WRITE RAM (BOTH SINGLE ANO 256 
jLOCATIONS) SELECT COOES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
I TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 



J - 



002214' 

003400' 
034163' 
016322' 
000005 



10$: 



002216' 



T15L0OP: 



BGNTST 



TST 
BEQ 
INC 
MOV 
JSR 
MOV 



TSTCNT 

101 

SKIPT 

*TST15ID,R0 

PCTSTSETUP 

05.LOOPCNT 



T4i 



I CHECK FOR RUN MODE 

j BR, IF NOT ONLY PROGRAM 

:SET SKIP SW 

tASCII MESSAGE TO IDENTIFY TEST 

jDO INITIAL TEST SETUP 

j PERFORM 5 ITERATIONS 



RUN 



TEST 4, SUBTEST 1 



THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE 
RAM MaORY SINGLE WORD (8 BITS) MODE 



000000 

00 "54-00 ' 

032054' 
03*;?C2* 

034254' 
015 j04- 



SGNSU8 



SETPRI OPRIOO 



\//////////// BEGIN SUBTEST //////////// 

T4.li 

TRAP CiBSUB 
lLOWER PRIORITY TO ALLOW INTERRUPTS 



10$: 



TST 


SKIPT 


BEQ 


10$ 


JMP 


SO* 


JSR 


PC.T15REST 


JSR 


FC.T15RT2 


JSR 


PCSOFINIT 



MOV 
TRAP 
j SHOULD WE SKIP THIS SUBTEST 
»BR, IF NOW SKIP REQUIRED 
jSKIP SUBTEST 
iSLT COMMAND PACKET 
t SET UP OTHER COMMAND PACKET 
1 00 INITIALIZE ON CONTROLLER 



OPRIOO.RO 
C$SPRI 



J9 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 4 j RAM EXERCISER TEST 



1200 
1204 
1205 



1206 
1207 
1208 
1209 
1213 
1214 



1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1229 



1230 



1231 

1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1249 



031612 
031614 
031616 
031616 
031620 
031622 
031624 
031626 
031626 
031632 
031636 
031640 
031642 
031642 
031644 
031646 
031650 
031652 
031656 
031664 
031672 
031672 
031676 
031702 
031706 
031712 
031716 
031720 
031722 
031722 
031724 
031726 
031730 
031732 
031732 
031754 
031736 
031736 



031740 
031742 
031746 
031750 
031752 
031754 
031760 
031764 
031772 
031776 
032002 
032004 
032006 
032006 
032010 
032012 
032014 



103405 
010001 

104455 
000621 
003646' 

011644' 

012704 033100' 
0O4737 010472' 
103405 
010001 

104456 
000622 
005052' 
011644' 

012703 000400 
112737 000001 033611' 
112737 C0OO02 033610' 

010337 033612' 

012704 033600' 
110337 033614' 
010465 000000 

004737 016146' 

103407 

010001 

104456 
0OO623 
033616' 
011656' 

104410 
0O0122 

104406 



005203 

020327 010000 

001351 

005002 

005303 

110337 033614' 

010337 033612' 

112737 000001 033610 

010465 000000 

0O4737 016146' 

103405 

010001 

104455 
0OO624 
033616' 
011656* 



01-FEB-84 


17:02 






SEQ 11 




BCS 


20$ 


>BR IF INIT WAS OK 






MOV 


R0,R1 


1 CONTENTS OF TSSR REGISTER 






ERROF 


ERRNO, SFIERR, SFIMSG 


i FATAL ERROR TSSR WAS WOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


CiERDF 
401 
SFIERR 
SFIMSG 


20$: 












MOV 


*T15PACKET,R4 


1 SUBROUTINE NEEDS PACKET ADDRESS 




JSR 


PC.WRTCHR 


I ISSUE WRITE CHARACTERISTICS 






BCS 


23$ 


jBR, IF COHMANO ISSUED OK 






MOV 


R0,R1 


j SAVE CONTENTS OF TSSR 






ERRHRD 


ERRNO.WRTMSG, SFIMSG 


j WRITE CHARACTERISTIC FAILED 





23$: 



25$: 



MOV 


$256., R3 


MOVB 


*1,T15BS1 


MOVB 


*2,T15BS0 


MOV 


R3.T15S2 


MOV 


♦T15PK2.R4 


MOVB 


R3.T15S3 


MOV 


R4,TSD8CR5) 


JSR 


PC.CHKTSSR 


BCS 


30$ 


MOV 


R0.R1 


ERRHRD 


ERRN0.T15SSR, PKTSSR 



30$: 



40$: 



ESCAPE 
CKLOOP 



INC 

CMP 

BNE 

CLR 

DEC 

MOVB 

MOV 

MOVB 

MOV 

JSR 

BCS 

MOV 

ERRDF 



SUB 



R3 

R3, 010000 

25$ 

R2 

R3 

R3.T15S3 

R3.T15S2 

«1,T15BS0 

R4.TSDBCR5) 

PC.CHKTSSR 

43$ 

R0.R1 

ERRN0.U5SSR, PKTSSR 



I STARTING ADDRESS FOR 
I SIZE OF TRANSFER 
l WRITE RAM "COMMAND" 



TRAP 
.WORD 
.WORD 
.WORD 
RAM WRITE 



CiERHRD 
402 
WRTMSG 
SFIMSG 



I ADDRESS FOR RAM 

{WRITE SUBSYS MEM PACKET 

iDATA FOR WRITE (ADDRESS 

j ISSUE COMMANO 

{WAIT FOR SSR 

j BR, IF NO ERROR 

j ERROR, SAVE TSSR 

I TSSR NOT CORRECT AFTER 



{DON'T CONTINUE IF ERROR 



) 



j SCOPE LOOP 



WRITE 


SUB MEM 


TRAP 


C$ERHRD 


.WORO 


403 


.WORD 


T15SSR 


.WORD 


PKTSSR 


ON WRITE 


TRAP 


C$ESCAPE 


.WORD 


L 10050 -. 



TRAP 



C$CLP1 



;NEXT ADDRESS 

I END OF RAM MEMORY CHECK 

{LOOP TILL ALL RAM WRITTEN 

;CLEAR OUT R2 HIGH BITS 

{SET BACK TO 7777 

{GET DATA PATTERN BACK IN SHAPE 

{ADDRESS FOR RAM READ 

{READ RAM COMMAND 

{SEND OUT PACKET ADDRESS TO CONTR. 

{WAIT FOR READY, NON-AMBIGUOUS 

I BR, IF NO PROBLEM 

iSAVE TSSR 

I TSSR NOT CORRECT 

TRAP C$ERDF 
.WORD 404 
.WORD T15SSR 
.WORD PKTSSR 



T5V:S - HARDWARE TESTS MACRO M1113 
TEST 4; RAM EXERCISER TEST 



01-FEB-84 17j02 



l<9 



SEQ 114 



1250 

1251 
1252 
1253 
1?!54 
1258 



1259 

1260 
1261 

1262 
1263 

1264 



1265 
1266 
1267 



1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1284 
1285 



1286 
128 7 
1288 
1289 
1293 
1294 



1295 

1296 



032016 
032016 
032020 
032024 
032026 
032030 
032032 
032032 
032034 
032036 
032040 
032042 
032042 
032044 
032046 
032052 
032054 
032054 
032056 
032056 
032056 



03206C 
032060 
052060 



032062 
032066 
032072 
032076 
032100 
032102 
032102 
032104 
032106 
032110 
032112 
032112 
032116 
032122 
032124 
032126 
032126 
032130 
032132 
032134 
032136 
032136 



104406 

013701 033142 1 

010302 

120102 

001404 

104456 
000625 
034075' 
015312' 

104406 

C05303 

020327 000377 

001340 

104406 



104403 



43$: 



104402 



45$; 



50$: 



CKLOOP 




j SCOPE LOOP 








TRAP 


C$CLP1 


MOV 


T15BFR+20,R1 


> GET RAM READ DATA 




MOV 


R3 f R2 


{SET UP FOR COMPARE 




CMPB 


R1.R2 


I CHECK WITH DATA WRITTEN 




BEQ 


45$ 


I BR IF OK, DATA IN - DATA OUT 




ERRHRD 


ERRNO , T15AM4 , EXP8REC 


{WRITTEN DATA NOT - TO READ 








TRAP 


C$EPHRD 






.WORD 


405 






.WORD 


T15AM4 






.WORD 


EXPBREC 


CKLOOP 




j SCOPE LOOP 








TRAP 


C$CLP1 


DEC 


R3 


{DROP DATA COUNTER (PATTERN) 




CMP 


R3.4255, 


{AT BOTTOM YET 




BNE 


40$ 


i BR, IF MORE TO CHECK 




CKLOOP 




j SCOPE LOOP 








TRAP 


CICLP1 


ENDSUB 




i\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 






L10050; 








TRAP 


C?£SUB 



BCNSU6 



t //////////// BEGIN SUBTEST //////////// 

T4.2: 

TRAP C$BSU6 



034202 
034254 
015604 



004737 
004737 
004737 
103405 
010001 

104455 
000626 
003646' 
011644' 

012704 
004737 
103405 
010001 

104456 
000627 
005052' 
011644' 



112737 000001 033611 



TEST 4, SUBTEST 2 



THIS SUBTEST WRITES RAM WITH ALL 7ER0S 

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 



JSR 


PC.T15REST 


JSR 


PC.T15RT2 


JSR 


PC.SOFINIT 


BCS 


20 ; 


MOV 


R0,R1 


ERRDF 


ERRNO •SFIERR.SFIMSG 



033100' 
010472' 



20$: 



{RESTORE PACKET FOR WRITE CHARA 
i RESTORE PACKET FOR WHT SUB SYS MEM 
jDO INITIALIZE OH CONTROLLER 
{BR IF INIT WAS Ui< 
{CONTENTS OJ TSSP REGISTER 
{FATAL ERROR TSSR WAS NOT OK 

T,~AP 

.(.:■:>:;;:> 
.WORD 



C$ERDF 
4 Of, 
SFI-RR 



JFIMSO 



MOV 
JSR 
BCS 
MOV 
ERRHRD 



0T15PACKET.R4 

PC.WRTCHR 

25$ 

R0.R1 

ERRNO .WRTMSG.SFIMSG 



{SUBROUTINE NEEDS PACKE"! ADIWESS 
iISSUE WRITE CHARACiTRISVIC? 
{BR, IF COMMAND v 'S».V.O CK 
jSAVE CONTENTS Of T^R 
{WRITE CHARACTERISTIC FAILED 

TRAP 
. WORD 



25$ 



MQVB 



01.T15BS1 



.WORD 
.WORD 

{SET SIZE OF TRANSFER 1 BYTE 



ciERunn 

407 
URTilS^ 

5FIMSC 



L9 



TSV5 - HARDWARE 


TESTS 


MACRO M1113 01 


TEST 4: 


RAM EXERCISER 


TEST 


1297 


032144 


012704 


033600* 


1298 


032150 


012703 


000400 


1299 


032154 


112737 


000002 033610' 


1300 


032162 


105037 


033614' 


1301 


032166 


010337 


033612' 


1302 


032172 


010465 


000000 


1303 


032176 


004737 


016146' 


1304 


032202 


103405 




1305 


032204 


010001 




1309 


032206 








032206 


104456 






032210 


000630 






032212 


033616' 






032214 


011656' 




1310 


032216 








032216 


104406 




1311 








1312 








1313 


032220 


005203 




1314 


032222 


020327 


010000 


1315 


032226 


001357 




1316 


032230 


005303 




1317 


032232 


005002 




1318 


032234 


112737 


000001 033610' 


1319 


032242 


010337 


033612' 


1320 


032246 


010465 


000000 


1321 


032252 


004737 


016146' 


1322 


032256 


103405 




1323 


032260 


010001 




1327 


032262 








032262 


104456 






032264 


000631 






032266 


033616' 






032270 


011656* 




1328 


032272 








032272 


104400 




1329 


032274 


013701 


033142' 


1330 


032300 


120102 




.1331 


032302 


001404 




1335 


032304 








032304 


104456 






032306 


000632 






032310 


033773' 






032312 


015312' 




1336 


032314 








032314 


104406 




1337 


032316 


012702 


00037 7 


1338 


032322 


112737 


0OO002 033610' 


1339 


032330 


112737 


000377 033614* 


1340 


032336 


010465 


000000 


1341 


032342 


004 737 


016146' 


1342 


032346 


103405 




1343 


032350 


01000 J. 




1347 


032352 








032352 


104456 






032354 


000633 






032356 


033616' 





01-FEB-84 17:02 



MOV 

MOV 

MOVB 

CLRB 

MOV 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



30$ : 



33$ 



35$: 
40$: 



41$: 



CKLOCH* 



INC 

CMP 

BNE 

DEC 

CLR 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



CKLOOP 



42$: 



CKLOOP 



♦U5PK2.R4 

♦256, ,R3 

♦2.T15BS0 

T15S3 

P.3.T15S2 

R4,TSDBCR5) 

PC.CHKTSSR 

33$ 

R0,R1 

ERRN0.T15SSR, PKTSSR 



R3 

R3,v* 10000 

30$ 

R3 

R2 

41.T15BS0 

R3.T15S2 

R4,TSDB(R5) 

PC.CHKTSSR 

41$ 

R0.R1 

ERRN0.T15SSR, PKTSSR 



MOV 


T15BFR*20,R1 


CMPB 


R1.R2 


BEQ 


42$ 


ERRHRD 


ERRN0.T15AM3.EXPBREC 



MOV 


♦000377, R2 


MOVB 


♦2.T15BS0 


MOVB 


♦00037 7, T15S3 


MOV 


R4,TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


43$ 


MOV 


R0,R1 


ERRHRD 


ERRN0.T15SSR. PKTSSR 



SEQ 115 



I SET NEW PACKET ADDRESS 

j STARTING ADDRESS IN RAM 

{WRITE RAM COMMAND 

j SET DATA TO 000 

» ADDRESS TO PACKET DATA AREA 

{SEND OUT PACKET ADDRESS 

jWAIT FOR SSR 

l BR, IF NO PROBLEM 

,SAVE TSSR 

jTSSR NOT CORRECT 



,SCOPE LOOP 



TRAP 


C$ERHRD 


.WORD 


408 


♦ WORD 


T15SSR 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



j NEXT ADDRESS 

j END OF RAM MEMORY CHECK 

j BR, MORE RAM TO GO 

I SET BACK TO 7777 

j SET TO ALL ZEROS 

j READ RAM COMMANO 

j ADDRESS TO BE READ 

{SEND OUT PACKET 

I WAIT FOR SSR TO 

{ BR, IF ALL IS WELL 

{SAVE TSSR 

jTSSR NOT CORRECT 



TO PACKET DATA 
ADDRESS 
SET 



{SCOPE LOOP 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
409 
T15SSR 
PKTSSR 

C$CLP1 



jPICK U° READ DATA 
{BOTH SHOULD BE 00000000 BINARY 
{BR, IF DATA IS GOOD 
{CHARACTERISTICS DAYA NO* CORRECT 



{SCOPE LOOPER 



I RAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHKO 
410 
T15AM3 
EXPBREC 

C$CLP1 



{SET ALL ONES WORD 

: WRITE RAM COMMAND 

{ALL ONES PATTERN 

{PASS PACKET ADDRESS TO CONTR 

,WAIT FOR SSR 

jBR. IF OK (NO ERROR) 

{SAVE TSSR 

iTSSR NOT CORRECT 

TRAP 

.WORD 

.WORD 



C$ERHRD 

411 

T15SSR 



M9 



1SV5 - HARDWARE 


TESTS 


MACRO M1113 
TEST 


TEST 4: 


RAH EXERCISER 




032360 


011656' 




134 


032362 








032362 


104406 




1349 


032364 


112737 


000001 033610 


1350 


032372 


010465 


000000 


1351 


032376 


004737 


016146' 


1352 


032402 


103405 




1353 


032404 


010001 




1357 


032406 








032406 


104455 






032410 


000634 






032412 


033616' 






032414 


011656' 




1358 


032416 


013701 


033142' 


1359 


032422 


120102 




1360 


032424 


001404 




1364 


032426 








032426 


104456 






032430 


000635 






032432 


033672' 






032434 


015312' 




1365 


032436 








032436 


104406 




1366 


032440 


005303 




1367 


032442 


020327 


000377 


1366 


032446 


001271 




1369 








1370 


032450 
032450 








032450 


104403 




1371 








1372 


032452 
032452 








032452 


104402 




1373 








1374 








1375 








1376 








1377 








1378 








1379 








1380 








1381 


032454 


005737 


003400' 


1382 


032460 


001402 




1383 


032462 


000137 


033056' 


1384 


032466 


004737 


034202' 


1385 


032472 


004737 


034254' 


1386 


0324/6 


004737 


015604' 


1387 


032502 


103405 




1391 


032504 


010001 




1392 


032506 








032506 


104455 






032510 


000636 






032512 


003646* 






032514 


011644' 




1393 


032516 






1394 


032516 


012704 


033100' 



Ol-FEB-84 17;02 



43$; 



CKLOOP 



MOVB 


♦1.T15BS0 


MOV 


R4,TSDBCR5) 


JSR 


PC.CHKTSSR 


8CS 


44$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T15SSR, PKTSSR 



44$; 



45$; 



MOV T15BFR+20.R1 

CMP6 R1.R2 

BEQ 45$ 

ERRHRD ERRN0,T15AM2,EXPBREC 



CKLOOP 



DEC 


R3 


CMP 


R3,*255. 


BNE 


40$ 



ENDSUB 



BGN3U8 



TEST 4, SUBTEST 3 



j SCOPE LOOP 

»SET UP FOR RAM READ 

{ISSUE RAM READ 

j WAIT FOR SSR TO SET 

}BR, IF OK CNO ERROR) 

{SAVE TSSR 

{TSSR NOT CORRECT 



;PICK UP REC'O DATA 
I CHECK WITH DATA WR 



.WORD 
TRAh 



SEQ 116 

PKTSSR 
C$CLP1 



TRAP 
.WORD 
.WORD 
.WORD 



{H1LK UK KfcL'U UHIH 
I CHECK WITH DATA WRITTEN 
I BR IF OK, DATA IN - DATA OUT 
j WRITTEN DATA NOT * TO READ 

TRAP 



TRAP 

.WORD 
.WORD 
.WORD 



C$ERDF 
412 
T15SSR 
PKTSSR 



C$ERHRD 
413 
T15AM2 
EXPBREC 

C$CLP1 



{SCOPE LOOP 

TRAP 

{DROP RAM ADDRESS POINTER 
;AT START YET 
{BR, IF MORE RAM TO CHECK 

l\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10051; 

TRAP C$ESUB 

\//////////// BEGIN SUBTEST //////////// 

T4.3: 

TRAP C$BSUB 



THIS SUBTEST WRITES RAM WITH ALL ONES 

THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 



10$ 



TST 


SKTPT 


BEQ 


101 


JMP 


50$ 


JSR 


PC.T15REST 


JSR 


PC.T15RT2 


JSR 


PC.SOFINIT 


BCS 


20$ 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$ 



MOV 



frTl5PACKET,R4 



jCHECK RUN MODE 

I BR, IF NO SKIP 

{SKIP SUBTEST 

{RESTORE PACKET FOR WRITE CHARA 

iRESTORE PACKET FOR WRT SUB SYS MEM 

{DO INITIALIZE ON CONTROLLER 

tBR IF INIT WAS OK 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT CK 

TRAP C$ERDF 
.WORD 414 
.WORD SFIERR 
.WORD SFIMSG 

{SUBROUTINE NEEDS PACKET ADDRESS 



N9 



TSV5 - HARDWARE TESTS MACRO 
TEST 4; RAM EXERCISER TEST 



M1113 Oi-FEB-84 17:02 



SEQ 117 



1395 
1396 
1400 
1401 



1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1416 



1417 

1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1434 



1435 

1436 
1437 
1438 
1442 



1443 
1444 
1445 



032522 
032526 
032530 
032532 
032532 
032534 
032536 
032540 
032542 
032542 
032550 
032554 
032560 
032566 
032574 
032600 
032604 
032610 
032612 
032614 
032614 
032616 
032620 
032622 
032624 
032624 



C32626 

032630 

03263': 

03263* 

03264C 

032644 

032652 

032656 

032662 

032666 

032670 

032672 

032672 

032674 

032676 

032700 

032702 

032702 

032704 

032710 

032712 

032714 

032714 

032716 

032720 

032722 

032724 

032730 

032736 



033611 



033610 
033614 ' 



004737 010472' 

103405 

010001 

104456 
000637 
005052' 
011644' 

112737 OOCuOl 

012704 033600' 

012703 000400 

112737 000002 

112737 000377 

010337 033612' 

010465 000000 

004737 016146' 
103405 
010001 

104456 
000640 
033616' 
011656' 

104406 



005203 

020327 OlOOOO 

001357 

^0530? 

112702 000377 

112737 000001 033610' 

010337 033612' 

0104 5 OOOCOO 

004737 016146' 

103405 

010001 

104456 
000641 
033616* 
011656' 

104406 

013701 033142' 

120102 

001404 

104456 
000642 
033773' 

015312' 

012702 0003 7 7 

012/37 000002 033610 

112737 000377 033614 



JSR 
BCS 
MOV 
ERRHRD 



PC.WRTCHR 

25$ 

R0.R1 

ERRNO.WRTMSG.SFIMSl 



i ISSUE WRITE CHARACTERISTICS 
j BR, IF* COMMAND ISSUED OK 
{SAVE CONTENTS OF TSSR 
j WRITE CHARACTERISTIC 



25$: 



FAILED 




TRAP 


CJERHRD 


.WORD 


415 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



30$: 



MOVB 


#1>T15BS1 


MOV 


0T15PK2.R4 


MOV 


4256. ,R3 


MOVB 


#2,T15BS0 


MOVB 


0377.T15S3 


MOV 


R3.T15S2 


MOV 


R4.TSDBCR5) 


JSR 


PC,CHKTSSR 


BCS 


33$ 


MOV 


R0.R1 


ERRHRD 


ERRN0.T15SSR.PKTSSR 



33$ 



CKLOOP 



UET SIZE TO 1 BYTE 

j SET NEW PACKET ADDRESS 

; STARTING ADDRESS IN RAM 

j WRITE RAM COMMAND 

j SET DATA TO 377 

{ADDRESS TO PACKET DATA AREA 

iSENO OUT PACKET ADDRESS 

i WAIT FOR SSR 

{BR, IF NO PROBLEM 

» SAVE TSSR 

{TSSR NOT CORRECT 



{SCOPE LOOP 



TRAP 


C$ERHRD 


.WORD 


416 


.WORD 


T15SSR 


.WORD 


PKTSSR 



TRAP 



C$CLP1 





INC 


R3 


{NEXT ADDRESS 






CMP 


R3 t #10000 


{END OF RAM MEMORY CHECK 






BNE 


30$ 


{BR, MORE RAM TO GO 




35$; 


DEC 


R3 


{SET BACK TO 7777 




40$: 


MOVB 


#377, R2 


{SET TO ALL ONES 






MOVB 


*i,U5BS0 


;READ RAM COMMANO 






MOV 


R3.T15S2 


{ADDRESS TO BE READ 10 PACKET DATA 




MOV 


R4.TSDBCR5) 


{SENO OUT PACKET ADDRESS 






JSR 


PC.CHKTSSR 


{WAIT FOR SSR TO SET 






BCS 


41$ 


{BR, ir ALL IS WELL 






MOV 


R0.R1 


: SAVE TSSR 






ERRHRD 


ERRN0.T15SSR, PKTSSR 


jTSSR NOT CORRECT 

TRAP 
.WORD 
. WORD 
.WORD 


C$ERHRD 
417 
I15SSR 
PKTSSR 


41$: 


CKLOOP 




;SCOP"£ LOOP 

TRAP 


CSCLP1 




MOV 


T15BFR»20,R1 


;PICK UP READ DATA 






CMPB 


R1.R2 


iBOTH SHOULD BE 11111111 BINARY 






BEQ 


42$ 


iBR, IF DATA IS GOOD 






ERRHRD 


ERRN0,T15AM3,EXPBAEC 


{CHARACTERISTICS DATA NOT CORRECT 








TRAP 


C$ERH«D 








.WORD 


418 








.WORD 


T15AM3 








♦ WORD 


EXPBREC 



42$: MOV #00037 7 t R2 
MOV O2.T15BS0 
MOVB #000377, U5S3 



SET ALL ONES WORD 
WRITE RAM COMMAND 
ALL ONES PATTERN 



BIO 



TSV5 - HARDWARE 


TESTS 


,1ACR0 Ml 113 01 


TEST 4: 


RAM EXERCISER 


TEST 


1446 


032744 


010465 


000000 


1447 


032750 


004/37 


016146' 


1448 


032754 


103405 




1449 


032756 


010001 




1453 


032760 








032760 


104456 






032762 


000643 






032764 


033616* 






032766 


011656' 




1454 


032770 








032770 


104406 




1455 


032772 


112737 


000001 033610' 


1456 


033000 


010465 


000000 


1457 


033004 


004737 


016146' 


1458 


033010 


103405 




1459 


033012 


010001 




1463 


033014 








033014 


104456 






033016 


000644 






033020 


033616* 






033022 


011656' 




1464 


033024 


013701 


033142' 


1465 


033030 


120102 




3 466 


033032 


001404 




1-170 


033034 








033034 


104456 






033036 


000645 






033040 


033672' 






033042 


015312' 




1471 


033044 








033044 


104406 




1472 


033046 


005303 




1473 


033050 


020327 


000377 


1474 


033054 


001271 




1475 








1476 


033056 






1477 


033056 
033056 








033056 


104403 




1478 








1479 








1480 


033060 


004737 


016270' 


1481 


033064 


103002 




148? 


033066 


000137 


031554' 


1483 


033072 








033072 


104432 






033074 


001216 




1484 








1485 








1486 








1487 








1489 


033076 






1491 


033100 






149,? 


033100 


100204 




1493 


033102 


033110' 




1494 


033104 


000000 




1495 


033 106 


000Q10 





FEB-84 17j02 



MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BC5 


43$ 


MOV 


R0.R1 


ERRNRD 


ERRN0.T15SSR, PKTSSR 



43$} 



44$ { 



45$: 



CKLOOP 

MOVB 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



MOV 

cmpb 

BEQ 
ERRHRD 



CKLOOP 



50$ J 



ENOSUB 



♦1.T15BS0 
R4.TSDBCR5) 
PC.CHKTSSR 
44$ 

RO f Rl 

ERRN0.T15SSR. PKTSSR 



U58FR*20.R1 

R1.R2 

45$ 

ERRN0 t T15AM2,EXPBREC 



DEC 


R3 


O* 


R3.«255, 


BNE 


40$ 



JSR 


PC.TSTLOOP 


BCC 


63$ 


JMP 


T15L00P 


EXIT 


TST 



63$: 



lLOCAL STORAGE FOR THIS TEST 
I * 

.BLKB 10-< . -TSV2&7* 
T15PACKET5 

.WORD 100204 

.WORD T15QATA 

.WORD 

t ww a* 



SEQ 118 



iPASS PACKET ADDRESS TO CONTR, 

jWAIT FOR SSR 

ieR, IF OK (NO ERROR) 

iSAVE TSSR 

iTSSR NOT CORRECT 



i SCOPE LOOP 

» SET UP FOR RAM READ 
I ISSUE RAM READ 
jWAIT FOR SSR TO SET 
iBR. IF OK (NO ERROR) 
iSAVE TSSR 
I TSSR NOT CORRECT 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
419 

T15SSR 
PKTSSR 



TRAP C$CLP1 



TRAP 

.WORD 

.WORD 

.WORD 



iPICK UP REC'D DATA 
tCHECK WITH DATA WRITTEN 
iBR IF OK, DATA IN ■ DATA OUT 
iWRITTEN DATA NOT • TO READ 

TRAP 
.WORD 
.WORD 
.WORD 
I SCOPE LOOP 

TRAP 
jDROP RAM ADDRESS POINTFR 
|AT START YET 
iBR, IF MORE* RAM TO CHECK 



l\\\\\\\\\\\\\ END SUBTEST SWWWWWW 

L10052: 

TRAP CIESUB 



C$ERHRD 
420 
T15SSR 
PKTSSR 



C$ERHRO 
421 

T15AM2 
EXPBREC 

CfCLPl 



iDO WE NEED TO ITERATE 
jBRANCH IF NOT 
lEXECUTE AGAIN 
l ALL DONE THIS TEST 



TEST ? 



TRAP 
.WORD 



CIEXIT 
L10047-. 



1 COMMAND PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND, WITH X£» AC>< 

j ADDRESS OF CHARACTERISTICS BLOCK 

t STARTING VALUE OF BLOCK SUE 



CIO 



TSV5 
TEST 



- HARDWAf 
4; RAM l 



urn 



:r tes 



MACRO 



M111J 01-FEB-84 17i02 



SEQ 119 



1496 

1497 

1496 

1499 

1500 

1501 

1502 

1503 

1504 

1506 

1503 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1536 

1539 

1540 

1541 

15*2 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 



033 HO 
033110 
033112 
033114 

033116 
033122 



053576 
033600 
033600 
033602 
033604 
033606 



033610 
033610 
033611 
033612 
033614 



033616 
033672 
033773 
034075 
034163 



034202 
034202 
034206 
034212 
034216 
034222 
034224 
034250 
034234 
034256 
034242 
034244 
034246 
03435a 



033122' 

000000 

000400 

000000 000000 



100206 
033610' 
000000 
000006 



000 

ooo 

000000 
000000 



127 
127 
127 
127 
122 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
00503 7 
000207 



122 
122 
122 
122 

101 



111 
111 
111 
111 
115 



033100' 
100204 

033110' 

000010 
033122' 

000400 

QMias* 



T15DATAi 

.WORD T15BFR 

.WORD 

.WORD 256. 

.WORD 0,0 

T15BFR: .BLKW 150. 

iWRITE SUBSYSTEM MEMORY COMMAND PACKET 

,BLKB 10-<,-TSV267> 
U5PK2t 

.WORD 100206 

.WORD T15BF2 

.WORD 

. WORD 6 . 



iCHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 
iMESSAGE BUFFER 



T158F2 
T158S0 
T158S1 
T15S2: 
T15S3: 



l LOCAL 

I - 



.EVEN 

.BYTE 

.BYTE 

WORD 

.WORD 



I WRITE SUB SYS MEM COMMAND. It AND ACK 
lADDRESS OF SELECT BLOCK DATA 

iSIZE OF DATA PACKET 



iBSELO AREA 
iBSELl AREA 
|SEL 2 AREA 

iDATA AREA 



TEXT MESSAGES FOR TES' 



T15SSR 
T15AM2 
T15AM3 

T15AM4 
TSTl5IDi 



.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



•WRITE SUBSYSTEM ,*«MORY 

'WRITE SUBSYSTEM MEMORY 

'WRITE SUBSYSTEM MEMORY 

•WRITE SUBSYSTEM MEMORY 

.ASCIZ 'RAM ExtrciW 



C om mand Not Accepted' 

COMMAND FaiUd On All On«« Word R«»d Back' 
COMMAND Failtd On All Z«ro« Word R«ad Back' 
COMMAND Failed On Addr«s« Te«f 



jROUTINt TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
iWRITE SUBSYSTEM MEMORY COMMANO 



,SAVE THE REGISTERS 

iSTART OF TME PACKET 

iWRITE SUBSYSTEM MEM, UITH ACK, IF. 

lADDRESS CK" CHARAISTICS DATA BLOCK 

lEXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

lADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



U5REST* 




SAVREG 




MOV 


♦ U5PACKET.R1 


MOV 


#100204, (Rl)» 


MOV 


dU5DATA,CRl)* 


CLR 


(Rl)* 


MOV 


♦8. ,(Ri)» 


MOV 


♦Tl5BFR,CRl)f 


CLR 


(Rl)» 


MOV 


♦256. .(RU* 


CLR 


CR1)» 


CLR 


(Rl) 


CLR 


T156FR 



RTS 



PC 



i CLEAR 1ST LOC IN MESSAGE BUFFER 
iRETURN 



D10 



TSV5 

Test 



HABDMA «& S 



1555 
1556 

1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 



1567 

1568 
1569 
1570 
1571 
li*73 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1S82 
158? 
1584 
1585 
1586 

1591 
1592 
1593 
1504 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 



RAH 



034254 
034254 

034260 
034264 

034270 

034274 
034276 
034302 
034304 
034306 
034310 
034312 



ER T 



m 



Rd MU13 



034314 
034314 
034314 
034320 

034324 
034332 



012701 033600' 

012721 100206 

012721 033610' 

005021 

012721 000006 

005021 

005021 

0013011 

000207 



OL-FEB-64 17}02 




T15RT2J 




SAVREG 




MOV 


*T15PK2 # R1 


MOV 


*100206,CR1)* 


MOV 


*T15BF2,CR1)* 


CLR 


(Rl)* 


MOV 


♦6,, CRD* 


CLR 


(Rl)» 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


ENOTST 





SEQ 120 



j SAVE THE REGISTERS 

I START Of THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK, It 

I ADDRESS OF DATA BLOCK 

lEXTENDEO ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 



I RE TURN 



034312 104401 



L 1004 7; 



TRAP 



C*ETST 



.SBTTL TEST 5? EXTENDED FEATURES SWITCH AND TIMERS A,B 



TEST DESCRIPTION: 

This test verifies the Invert Extended Features function 
can logically invert the Extended features aw itch and 
that tha internal timere A and B operate correctly, 

TEST STEPS? 

REPEAT FOR LOOPCNT 
BEGIN 

Do Subtest 1 - Verify 
Do Subtest 2 - Verify 

END 



Extended Features Switch 
Timers A,B 



012700 
004 737 
012737 



036372' 
016322' 
000012 



002216 



TI6LOOP1 



BGNTST 

MOV 
JSft 

MOV 



eTST16ID,R0 
PCTSTSETUP 
#10, , LOOPCNT 



T5:: 
i ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
jPERFORM 10 ITERATIONS 



.S«TTL TEST 5: SUBTEST Li VERIFY EXTENDED FEATURES TEST 

TEST 5: SUBTEST 1: 

SUBTEST DESCRIPTION? 

This subtest ver if tee that tha Invert Senae of Extended features 

Switch function (Write Subsystem Memory. Write Mlsc command) 

operates prcperly. 

First the state of the Extended Features aw itch ia read in the 

message packet supplied by the write characteristics command* 

Then, the sense cf the switch is logically inverted, 

A Write characteristics command is executed and it ia verified 

that the Extended statue register CXST4) ia returned when 

in Extended mode, and not returned :f not in extended mode. 

The subtest also verifies that specifying a Mes9acje Suffer 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 5: SUBTEST 1; VERIFY EXTENDED 



1613 
1614 
1615 
1616 
1617 
J..618 
1619 
1620 
1621 
1622 
16?3 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 



01-FEB-84 
FEATURES TE 



IV- 



02 



1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 



1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 



034332 
034332 
034332 



034334 

034334 
034340 
034342 
034344 
034344 
034346 
034350 
034352 

034354 
034360 
034364 

034370 
034374 
034410 
03441.2 
034414 
034414 
034414 



address with 
bt> rejected. 



E10 



any of bits 21*19 .set will cause the command to 



SEQ 121 



TEST STErSs 



BEGIN 



END 



104402 



004737 015604' 

103405 

010001 

104455 
000764 
003646' 
011644' 

004737 037540 

005037 002222 

012704 037720 

004737 010472 

103407 
010001 



104455 



5$: 



1 
10$ 



Write to T3SR register to soft initialize the controller 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

IF Extended Features Hardware Switch CLEAR 

THEN 

(♦ Verify Extended Features switch can be Inverted to SET *) 
Do Write Subsystem Write Miscellaneous to SET Extended Features, 
DO a WRITE CHARACTERISTICS with an extended characteristic word 
Compare the controller ram to the extended characteristic word 
If Data word in controller ram NOT- to word sent Then Print Error 
Message Buffer Data Length NOT- 12. Then Print Error 



If 
ELSE 
(♦ 
Do 
Do 
If 



Verify Extended Features switch can be Inverted to CLEAR *) 
Write Subsystem Write Miscellaneous to CLEAR Extended Features. 
a WRITE CHARACTERISTICS without ri extended characteristic word 
Message Buffer Data Length NOT- 10. Then Print Error 
END -IS- 
C'' Verify Function Reject when Message Buffer 21-19 are non-zero +) 
Write to TSSR register to soft initialize the controller 
REPt'AT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM TO 7 
DO »i WRITE CHARACTERISTICS with a message address bit<21:19> non-zero 
If TSSR termination code NOT* Function Reject Then Print Error 
ENO-REPEAT 



BGNSU6 



;//////////// BEGIN SUBTEST ////////// 

T5.1: 

TRAP CJBSUB 



Write to TSSR register to soft initialize the controller 

tWRITE TO TSSR TO SOFT INITIALIZE 
jBR IF SOFT INIT OKAY 
jSAVE CONTENTS OF TSSR 
lOEVICE FATAL DURING INIT 

TRAP 



JSR 
BCS 

MOV 
ERRDF 



PC.SOFINIT 

10$ 

R0.R1 

ERRNO,SFIERR,SFIMSG 



12$! 



Do WRITE CHARACTERISTICS to 

JSR PC.T16REST 

CLR FATFLG 

MOV 0T16PACKET.R4 

JSR PC,WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T16SSR>PKTSSR 



.WORD 
.WORD 

.WORD 
Switch 



C$ERDF 

500 

SFIERR 

SFIMSG 



check for Extended Features 
iRESTORE PACKET DEFAULTS 
l CLEAR FATAL ERROR FLAG 
1 GET THE ADDRESS OF C0MM4N0 PACKET 
»D0 WRITE CHARACTERISTICS COMMAND 

lOQOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET CG000 RETURN) 
jSAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 



TSV5 - HARDWARE TESTS 
TEST 5* SUBTEST 1: 



MACRO M1113 
VERIFY EXTENDED 



im^ur- 



FIO 



02 



SEQ 122 



1663 
1664 

1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 



1685 
1686 

1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 



1699 
1700 

1701 
1702 
1703 
1704 
1705 



034416 
034420 
034422 
034424 

034430 
034430 



034432 
034436 
034444 
034446 
034452 



034456 
034462 
034466 
034472 
034476 
034512 
034514 
034516 
034516 
034516 
034520 
034522 
034524 
034526 
034532 
034532 



034534 
034542 
034546 
034554 
034562 
034566 
034602 
034604 
034606 
034606 
034606 
034610 
034612 
034614 
034616 
034622 
034622 

034624 
034630 
034634 
034640 



000765 
036442' 
011656' 
005237 002222 

104406 



012701 037742' 

032761 000200 000012 

001402 

000137 035016' 

012703 002764' 



004737 037700' 

012704 040000' 

010465 000000 

004737 016146' 

103407 
010001 



104455 

000766 

036477* 

011656' 

005237 002222 

104406 



012737 125252 002312 

012704 037720' 

012764 000020 000006 

013737 002312' 037740 

0O4737 010472' 

103407 
010001 



104455 

000767 

036442' 

011656' 

005237 002222' 

104406 

016501 000000 
012702 037742 
062702 000020 



15$ 



20$ j 



INC 
CKLOOP 



FATFLG 



.WORD 501 

.WORD T16SSR 

. WORD PKTSSR 

I SET FATAL ERROR FLAG 

»L00P ON ERROR, IF FLAG SET 

TRAP C$CLP1 



If Extended Features Hardware Switch Clear then: 

C* Verify Fxtunded Feature* switch cwi be Inverted to SET O 
REPEAT FOR TEST PATTERNS IN TSTBLK T/-.&LE 

MOV 0T16BFR.R1 |MESStftf BUFFER ADDRESS 

BIT 0X2.EXTF.XST2CR1) tEXTENOED FEATURES SWITCH CLEAR? 

BEQ 20$ i BR IF YES 

JMP 200$ i 

MOV «TSTBLK*10.,R3 iSTART OF TEST DATA 

Do Urite Subsystem Write M isccllaneou** to SET Extended Features. 



32$: 



JSR PC,T16SEXT 

MOV 0716PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 32$ 

BCS 40$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO . T162SSR , PKTSSR 



I SETUP PACKET FOR WRITE MISC INVERT 
I GET WRITE SUBSYSTEM COMMANO PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iWSOFORCE ERROR IF FORCER-l 
jBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 



40$: 



INC 
CKLOOP 



FATFLG 



TRAP 


C$ERDF 


.WORD 


502 


.WORD 


T162SSR 


.WORD 


PKTSSR 



l SET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG SET 

TRAP 



CSCLP1 



42$: 



DO a WRITE CHARACTERISTICS wi 
MOV 0125252. DATA 
MOV GT16PACKET.R4 
MOV *16..PKBCNT(R4) 
MOV DATA,T16DATA*10 
JSR PC.WRTCHR 
FORCERROR 42$ 
BCS 50$ 
MOV R0.R1 
NEXT.ERRNO 
ERRDF ERRNO, T16SSR.PKTSSR 



th an extended characteristic word 
l SETUP TES" DATA FOR EXTENDED WORD 
jGET THc ADDRESS Of COMMANO PACKET 
j STORE MESSAGE PACKET SIZE 
j STORE TEST DATA IN EXTENDED WORD 
I DO WRITE CHARACTERISTICS COMMAND 

iSSDFORCE ERROR IF FORCER -1 
jBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR 



50$} 

i 

62$: 



INC 
CKLOOP 



FATFLG 



If the TSBA Address Register 
MOV TSBACR5),R1 
MOV «T16RFR,R2 
ADD *16.,R2 
FORCERROR 72$.NCTSSR 



I SET FATAL ERROR F 
jLOOP ON ERROR. IF 

NOT- Expected Th«n 

»GET TSBA REGISTER 

iSTART OF THE DATA 

{EXPECTED CONTENTS 

lOQOFORCE 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


503 


.WORD 


T16SSR 


.WORD 
i up 


PKTSSR 


FLAG SET 




TRAP 


C5CLP1 


Print Error 




CONTENTS 




BUFFER 




OF TSBA 




ERROR IF FORCER -1 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 5 5 SUBTEST 1; VERIFY EXTENDED FEATURES TEST 



G10 



SEQ 123 



1706 034650 


020102 




1707 034652 


001404 




1708 034654 






1709 034654 






034654 


104456 




034656 


000770 




034660 


036610' 




034662 


015304' 




1710 034664 






034664 


104406 




1711 






1712 






1713 034666 


012704 


037730' 


1714 034672 


004737 


011034' 


1715 034676 






1716 034712 


103404 




1717 034714 






1718 C34714 






034714 


104456 




034716 


000771 




034720 


004741' 




034722 


015320' 




1719 034724 






034724 


104406 




1720 






1721 034726 


012702 


037742' 


1722 034732 


016201 


000002 


1723 034736 


012702 


000014 


1724 034742 






1725 034752 


020102 




1726 034754 


001404 




1727 034756 






1728 034756 






034756 


104456 




034760 


000772 




034762 


036712' 




034764 


015304' 




1729 034766 






034766 


104406 




1730 






1731 034770 


004737 


015604 ' 


1732 034774 


103405 




1733 034776 


010001 




1734 035000 






035000 


104455 




035002 


000772 




035004 


003646' 




035006 


011644' 




1735 035010 






035010 


104406 




1736 035012 


000137 


035176' 


1737 






1738 






1739 035016 






1740 






1741 035016 


004737 


037700' 


1742 035022 


012704 


040000' 



72$: 



80$: 



CMP R1.R2 

BEQ 80$ 

NEXT, ERRNO 

ERRHRD ERRNO , T16TSBA , EXPREC 



92$: 



100$ 



112$: 



120$: 



CKLOOP 

Compare the controller ram to 
If Data word in controller ram 

MOV *T16DATA,R4 

JSR PC.CKRAM2 

FORCERROR 92$ 

BCS 100$ 

NEXT. ERRNO 

ERRHRD ERRNO . PKTRAM , R AMERR 



l COMPARE EXPECTED TO RECEIVED 
I ERROR IF NOT EQUAL 

(PRINT THE ERROR 6 EXPD/RECV 

TRAP C$ERHRD 
. WORD 504 
.WORD T16TSBA 
.WORD EXPREC 

I LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

the extended character let I c word 
NOT- to word went Then Print Error 

iGET CHARACTERISTIC DATA ADDRESS: 

tDOES RAM DATA EQUAL DATA SENT? 

iSODFORCE ERROR IF FORCER -1 

jBR IF YES 



CKLOOP 

If Message Buffer Data Length 
■10V *T16BFR,R2 
MOV 2(R2),R1 
MOV *12.. R2 
FORCERROR 112$,N0TSSR 
CMP R1.R2 
BEQ 120$ 
NEXT, ERRNO 



j REPORT THE RAM ERRORCS) 

TRAP C$ERHRD 
. WORD 505 
.WORD PKTRAM 
.WORO RAMERR 

,LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

NOT- 12. Then Print Error 

I GET MESSAGE BUFFER ADDRESS 

i GET RECV DATA FIELD LENGTH 

iGET EXPD DATA FIELD LENGTH 

iMDFORCE ERROR IF FORCER* 1 

, COMPARE EXPECTLD TO RECEIVED 

i ERROR IF NOT EQUAL 



ERRHRD 


ERRNO, T16LEN, EXPREC 


j PRINT THE ERROR 6 EXPD/RECV 








TRAP 


C$ERHRD 






.WORD 


506 






.WORO 


T16LEN 






.WORD 


EXPREC 


CKLOOP 




j LOOP ON ERROR. IF FLAG SET 








TRAP 


C$CLP1 


JSR 


PC.SOFINIT 


j WRITE TO TSSR TO SOFT INITIALIZE 


BCS 


125$ 


jBH IF SOFT INIT OKAY 




MOV 


R0.R1 


j SAVE CONTENTS OF TSSR 




ERRDF 


ERRNO, SFIESR,SFIMSG 


j DEVICE FATAL DURING INIT 








TRAP 


C$ERDF 






.WORD 


506 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CKLOOP 




tLOOP IF SELECTED 








TRAP 


C$CLP1 


JMP 


300$ 


i 





125$: 



j (* Verify Extended Feature* switch can be Inverted to CLEAR *) 

200$: 

j Do Write Subsystem Write 

JSR PC.T16SEXT 

MOV <m6PK2,R4 



Miscellaneous to CLEAR Extended Features. 
j SETUP PACKET rna WRITE MISC INVERT 
iGET WRITE SUBbYbTEM COMMAND PACKET 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST 5: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 



H10 



SEQ 124 



1743 035026 


010465 


000000 


1744 035032 


004737 


016146* 


1745 035036 






1746 035052 


103407 




1747 035054 


010001 




1748 035056 






1749 035056 






035056 


104455 




035060 


000773 




035062 


036477' 




035064 


011656' 




1750 035066 


005237 


002222' 


1751 035072 






035072 


104406 




1752 






1753 






1754 035074 


012704 


037720' 


1755 035100 


012764 


000016 000006 


1756 035106 


004737 


010472' 


1757 035112 






1758 035126 


103407 




1759 035130 


010001 




1760 035132 






1761 035132 






035132 


104455 




035134 


000774 




035136 


036442' 




035140 


011656' 




17b2 035142 


005237 


002222' 


1763 035146 






035146 


104406 




1764 






1765 035150 


013701 


037744' 


1766 035154 


012702 


000012 


1767 035160 


020102 




1768 035162 


001404 




1769 035164 






1770 035164 






035164 


104456 




035166 


000775 




035170 


036712' 




035172 


015304' 




1771 035174 






035174 


104406 




1772 






1773 






1774 






1775 






1776 035176 






1777 






1778 035176 


01273? 


OOOOOl 002312 


1779 






1780 035204 






1781 035204 


012704 


037720' 


1782 035210 


012764 


000016 000006 


1783 035216 


013700 


002312' 


i 784 


000003 





232$: 



240$: 



242$: 



250*: 



262*: 



300$ 



325$ 



MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 232$ 

BCS 240$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T162SSR , PKTSSR 



{SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

tSSDFORCE ERROR IF FORCER- 1 
»BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



j SET FATAL ERROR FLAG 
i LOOP ON ERROR. IF FLAG 



SET 
TRAP 



C$ERDF 
507 

T162SSR 
PKTSSR 



C*CLP1 



DO a WRITE CHARACTERISTICS without en extended characteristic word 



MOV *T16PACKET,R4 

MOV #14. .PKBCNTCR4) 

JSR PC.WRTCHR 

FORCERROR 242$ 

BCS 250$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO . T16SSR . PKTSSR 



INC 
CKLOOP 



FATFLG 



If Message Buffer Lata Length 
MOV T16BFRf2*Rl 

MOV #10.. R2 

CMP R1.R2 

BEQ 270$ 

NEXT.ERRNO 
ERRHRD ERRNO , T 16LEN , EXPREC 



270$: CKLOOP 



{GET THE ADDRESS OF COMMAND PACKET 

j STORE MESSAGE PACKET SIZE 

I DO WRITE CHARACTERISTICS CGTV1AN0 

iSSOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOO RETURN) 
j SAVE. CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 508 
.WORD T16SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 

{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

NOT- 10, Then Print Error 

{GET RECV DATA FIELD LENGTH 

{GET EXPO DATA FIELD LENGTH 

{COMPARE EXPECTED TO RECEIVED 

{ERROR IF NOT EQUAL 

{PRINT THE ERROR £ EXPD/RECV 

TRAP C$ERHRD 

.WORD 509 

.WORD T16LEN 

,WORD EXPREC 

{LOOP ON ERROR, IK FLAG SET 

TRAP C$CLP1 



(* Verify Function Reject when Message Buffer 21-19 are non-zero O 
Write to TSSR register to soft initialize the controller 

REPEAT FOR MESSAGE BUFFER ADDRESS bite <21:19> FROM TO 7 

MOV 91, DATA {START AT BITS<21: 19> -001 

DO a WRITE CHARACTERISTICS with a message address b?t<21tl9> non-rero 

{GET THE ADDRESS OF COMMANO PACKET 
{STORE MESSAGE PACKET SIZE 
{GET TEST DATA 



MOV 


#T16PACKET,R4 


MOV 


#14, .PKBCNKR4) 


MOV 


DATA.RO 


.REPT 


3 



T ' 



[10 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 i7«02 
TEST 5: SUBTEST 1; VERIFY EXTENDED FEATURES TEST 



SEQ 125 



1785 
1786 
1787 
5.788 
1789 
1790 
1791 
1792 
1793 
1794 



1795 
17% 

1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 



1808 

1809 
1810 
1811 
1312 
1813 
1814 
1815 
1816 



1817 
1818 
1819 
1820 
1621 
1622 
18^3 
1C. ; . 
182") 
18?f 
182/ 
1826 
1829 



035230 
035234 
035240 
035244 
035260 
035262 
035264 
035264 
035264 
035266 
035270 
035272 
035274 
035300 
035300 



035302 
035306 
035310 
035314 
035320 
035330 
035332 
035334 
035334 
035334 
035336 
035340 
035342 
035344 
035344 
035346 
035356 
035362 
035370 
035372 

035? it, 
03 r ^>; 

OoSSrS 

t;i •■».•>'. *■ 

0."'>4v 

C3.M,v. 

r» v-v: , . 



010037 037732' 
010465 000000 
004737 016060' 

103407 
010001 



104455 

000776 

036442' 

011656' 

005237 002222* 

104406 



016501 00OO02 
010102 

042702 000016 

052702 000006 

020102 
001404 



104456 

000777 

037024* 

011656* 

104406 

005237 002312' 

023727 002312 1 000007 

101002 

U00137 035204' 



104403 

005737 002222' 

001402 

00*737 017014' 



342$; 



350$; 



352$; 



360$; 



370$; 



460$; 



ASL 


RO 


I SHIFT INTO BITS 21:19 


.ENOR 






MOV 


R0,T16DATA»2 


l STORE BUFFER ADDRESS BITS 21:19 


MOV 


R4,TS0B(R5) 


iSET THE PACKET ADDRESS TO EXECUTE 


JSR 


PC.WAITF 


lUAIT FOR SSR 


FORCERROR 342$ 


iOSOFORCE ERROR IF FORCER-1 


BCS 


350$ 


,BR IF CARRY SET (GOOD RETURN) 


MOV 


R0.R1 


j SAVE CONTENTS OF TSSR 


NEXT.ERRNO 




ERRDF 


ERRN0.T16SSR, PKTSSR 


j DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 510 
.WORD T16SSR 
.WORD PKTSSR 



INC FATFLG 


j SET FATAL ERROR FLAG 


CKLOOP 


j LOOP ON ERROR. IF FLAG SET 




TRAP C$CLP1 


If TSSR termination code NOT- 


Function Reject Then Print Error 


MOV TSSRCR5),R1 


iGET RECV TSSR 


MOV R1.R2 


iCOPY RECV TSSR 


BIC STEROLS. R2 


jCLEAR TC<2:0> EXPD 


BIS *TSREJ,R2 


jSET EXPD TC<2:0>- FUNCTION REJECT 


FORCERROR 352$,N0TSSR 


jSSOFORCE ERROR IF FORCER* 1 


CMP R1>R2 


j EXPD EQUAL RECV? 


BEQ 360* 


iBR IF YES 


NEXT.ERRNO 




ERRHRD ERRNO , T16RE J , PKTSSR 


iDEVICE FATAL SSR FAILED TO SET 




TRAP C$ERHRD 




.WORD 511 




.WORD T16REJ 




.WORD PKTSSR 


CKLOOP 


>L0OP ON ERROR, IF FLAG SET 




TRAP C$CLP1 


FORCEXIT 370$ 




INC DATA 


iGET NEXT TST PATTERN 


CMP DATA, #7 


iDONE ALL DATA? 


BHI 370$ 


iBR IF YES 


JMP 325$ 


iDO ANOTHER TEST PATTERN 



ENO-REPEAT 
ENDSUB 



TST 


FATFLG 


BEQ 


460$ 


JSR 


PC.CKDROP 



i //////////// ENO SUBTEST ////////// 

L 10054: 

TRAP C$ESU6 

I ANY FATAL ERRORS ? 

i BRANCH IF NOT 

l TRY TO DROP THE UNIT 



.SBTTL TEST 5: SUBTEST 2: VERIFY TIMERS A,B 



i TEST 5s SUBTEST 2: 

! SUBTEST DESCRIPTION: 

I 



J10 



TSV5 - HARDWARE 


TESTS 


MACRO M1113 0. 


TEST 5: 


SUBTEST 2: VERIFY TIMERS A,B 


1830 








1831 








183.? 








1833 








1834 








1835 








1836 








1837 








1838 








1839 








1840 








1841 








1842 








1843 








1844 








1845 








1846 








1847 








1848 








1849 








1850 








1851 








1852 








1853 








1854 








1855 








1856 








1857 


035412 
035412 








035412 


104402 




1858 








1859 


035414 






1860 


035414 


004737 


015604' 


1861 


035420 


103405 




1862 


035422 


010001 




1863 


035424 








035424 


104455 






035426 


000777 






035430 


003646' 






035432 


011644' 




1864 








1865 


035434 


004737 


037540' 


1866 


035440 


005037 


002222' 


1867 


035444 


012704 


037720' 


1368 


035450 


012764 


OOOOIO 000006 


1869 


035456 


004737 


010472' 


1870 


035462 






1871 


0354 76 


103407 




1872 


035500 


010001 




1873 


035502 






1874 


035502 








035502 


104455 






035504 


001000 






035506 


036442' 






035510 


011656' 




1875 


035512 


005237 


002222' 


1876 


035516 







Ol-FEB-84 17:02 



SEQ 126 



J 
5$: 



10$; 



12*5 



This subtest verifies that timers A,B can be reset 
and that Timer A is twice the frequency of Timer B. 
Timer A has a period of 25 microseconds and Timer B 
has a period o f 50 microseconds. The timers are 
checked at 1. 28, 53, and 78 micoaeconds. 



TEST STEPS: 



Write to TSSR register to 

Do WRITE CHARACTERISTICS 
(♦ Verify Timers A,B afte 
Do a Write Control RESET 
Do a Write Subsystem READ 
If Timer A NOT- Then P 
If Timer B NOT- Then P 
(♦ Verify Timers A,B afte 
Do a Write Control RESET 
If Timor A NOT- 1 Then P 
If Timer B NOT- 1 Then P 
Do a Write Control RESET 
If Timer A NOT- Then P 
If Timer B NOT- 1 Then P 
Do a Write Control RESET 
If Timer A NOT- 1 Then P 
If Timer B NOT- Then P 



soft initialize the controller 
to setup a Message Buffer 

r RESET TIMER with microsecond delay *) 
TIMER with 1 microsecond delay 

STATUS 
rint Error 
rint Error 

r RESET TIMER with 28 microsecond delay + ) 
TIMER with 28 microsecond delay 
rint Error 
rint Error 

TIMER with 53 microsecond delay 
rint Error 
rint Error 

TIMER with 78 microsecond delay 
rint Error 
rint Error 



BGNSUB ;//////////// BEGIN SUBTEST ////////// 

T5.2: 

TRAP CiBSUB 
Write to TSSR register to soft initialize the controller 



JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO , SFIERR , SFIMSG 



Do WRITE CHARACTERISTICS to 

JSR PC,T16REST 

CLR FATFLG 

MOV *T16PACKET,R4 

MOV *6. .PKBCNTCR4) 

JSR PC.WRTCHR 

FORCERROR 121 

BCS 15$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T16SSR , PKTSSR 



15$: 



INC 
CKLOOP 



FATFLG 



j WRITE TO TSSR TO SOFT INITIALIZE 

:BR IF SOFT INIT OKAY 

I SAVE CONTENTS OF TSSR 

j DEVICE FATAL DURING INIT 

TRAP C$ERDF 
.WORD 511 
.WORD SFIERR 
.WORD SFIMSG 
setup a Message Buffer 

j RESTORE PACKET DEFAULTS 

i CLEAR FATAL ERROR FLAG 

j GET THE ADDRESS OF COMMAND PACKET 

j MESSAGE PACKET SIZE NO EXTEND 

iDO WRITE CHARACTERISTICS COMMAND 

iMOFORCE ERROR IF FORCER -1 

jBR IF CARRY SET (GOOD RETURN) 

iSAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 512 
.WORD T16SSR 
.WORD PKTSSR 

{SET FATAL ERROR FLAG 

jLOOP ON ERROR. IF FLAG SET 



K10 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 5? SUBTEST 2: VERIFY TIMERS A,B 



1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 



1891 
1892 

1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 



1906 

1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 



035516 104406 



035520 
035524 
035530 
035534 
035540 
035544 
035550 
035564 
035566 
035570 
035570 
035570 
035572 
035574 
035576 
035600 
035604 
035604 



035606 
035610 
035614 
035620 
035624 
035630 
035634 
035644 
035646 
035650 
035650 
035650 
035652 
035654 
035656 
035660 
035660 



035662 
035666 
035672 
035676 
035702 
035706 
035712 
035726 
035730 
035732 
035732 
035732 
035734 
035736 



012700 
013701 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001001 
036477 
011656 
005237 

104406 



OOOOOl 

036362' 

037652* 

040000' 

OOOOOO 

016146' 



0:,2700 
0:i3701 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001003 
036477 



32$: 



002222' 



005002 

042702 00OO10 

042702 000004 

012700 037762' 

016001 000002 

042701 177763 

020201 
001404 



104456 
001002 
037141 
015362 

104406 



40$: 

i 
i 



72$ i 



80$: 



OOOOOl 

036364' 

037652' 

040000' 

OOOOCO 

016146' 



112$: 



TRAP 



SEQ 127 



C$CLPl 



C* Verify Timers A,B after RESET TIMER with 1 microsecond delay *) 
Do a Write Control RESET TIMER with 1 microsecond delay 

» RESET TIMER COMMAND 
il MICROSECOND DELAY 
{SETUP T16PK2 COMMAND PACKET 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TS3R 

ERRDF ERRNO , T162SSR , PKTSSR 



MOV 


*MS 


.RSD.RO 


MOV 


T16D01.R1 


JSR 


PC, 


T16WMISC 


MOV 


4T16PK2.R4 


MOV 


R4, 


TSDBCR5) 


JSR 


PC, 


CHKTSSR 


FORCERROR 


32$ 


BCS 


40$ 




MOV 


RO, 


Rl 


NEXT 


ERRNO 





INC 
CKLOOP 



FATFLG 








Then Print Error 
Then Print Error 

jINIT EXPO 



If Timer A NOT- 
If Timer B NOT- 
CLR R2 
BIC *S2.ATIM,R2 
BIC *S2.BTIM,R2 
MOV *T16BFSTA,R0 
MOV 2(R0),R1 

BIC *tC<S2.ATIM!S2.BTIM>,Rl 

FORCERROR 72 $ , NOTSSR 

CMP R2.R1 

BEG) 80$ 

NEXT. ERRNO 

LRRHRD ERRNO, T16T01 , TIMEXP 



{DEVICE FATAL SSR FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


513 


.WORD 


T162SSR 


.WORD 


PKTSSR 


;SET FATAL ERROR FLAG 




;LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLPl 



CKLOOP 



Do a Write Control RESET TIMER 

MOV OMS.RSO.RO 

MOV T16D28,R1 

JSR PC.T16WMISC 

MOV 0T16PK2.R4 

MOV R4.TSDBCR5) 

JSR PC, CHKTSSR 

FORCERROR 112$ 

BCS 120$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T162SSR, PKTSSR 



TRAP 


C$ERHRU 


.WORD 


514 


.WORD 


T16T01 


.WORD 


TIMEXP 


IF FLAG SET 




TRAP 


C$CLP1 



j TIMER A EXPD-0 

{TIMER B EXPU-0 

jGET RECV READ STATUS 

{GET RECV BYTE 2 

{SAVE TIMER A:B RECV ONLY 

iSOO 

{EXPO EQUAL RECV? 

{ BR IF YES 

{REPORT ERROR 



{LOOP ON ERROR, 



with 28 microsecond delay 
{RESET TIMER COMMAND 
{26 MICROSECOND DELAY 
{SETUP T16PK2 COMMAND PACKET 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
,WAIT FOR SSR TO SET 

,saOFORCE ERROR IF rORCER-1 
i BR IF CARRY SE T CGOOD RETURN) 
{SAVE CONTENTS OF TSSR 

{DEVICE FATAL aSR FAILED TO SET 

TRAP CJERDF 
.WORD 515 
.WORD T162SSR 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-64 17:02 
TEST 5: SUBTEST 2: VERIFY TIMERS A,B 



L10 



SEQ 128 



035740 


011656' 








1920 035742 


005237 


002222' 




INC FATFLG 


1921 035746 






120$: 


CKLOOP 


035746 


104406 








1922 






• 


IF Timer A NOT- 1 Then Print 


1923 






} 


If Timer B NOT- 1 Then Print 


1924 035750 


005002 






CLR R2 


1925 035752 


052702 


000010 




BIS •S2,ATI.1,R2 


1926 035756 


052702 


000004 




BIS 0S2.BTIM,R2 


1927 035762 


012700 


037762' 




MOV OT16BFSTA,R0 


1928 035766 


016001 


000002 




MOV 2(R0),R1 


1929 035772 


042701 


177763 




BIC <nC<S2,ATIM!S2.BTIM> ,l 


1930 035776 








FORCERROR 172$»N0TSSR 


1931 036006 


020201 






CMP R2.R1 


1932 036010 


001404 






BEQ 180$ 


1933 036012 








NEXT, ERRNO 


1934 036012 






172*: 


ERRHRD ERRNO , T 16T28 » TIMEXP 


036012 


104456 








036014 


001004 








036016 


037240' 








036020 


015362' 








1935 036022 






180$: 


CKLOOP 


036022 


104406 








1936 










1937 






i 


Do a Write Control RESET TIME 


1938 036024 


012700 


000001 




MOV OtIS.RSO.RO 


1939 036030 


013701 


036366' 




MOV T16D53.R1 


1940 036054 


004737 


037652' 




JSR PC.T16WMISC 


1941 036040 


012704 


040000' 




MOV 0T16PK2.R4 


1942 036044 


010465 


000000 




MOV R4.TSDBCR5) 


1943 036050 


004737 


016146* 




JSR PC.CHKTSSR 


1944 036054 








FORCERROR 212$ 


1945 036070 


103407 






BCS 220$ 


1946 036072 


010001 






MOV R0.R1 


1947 036074 








NEXT. ERRNO 


1948 036074 






212$: 


ERRDF ERRNO , T162SSR , PKTSSR 


036074 


104455 








036076 


001005 








036100 


036477' 








036102 


011656' 








1949 036104 


005237 


002222' 




INC FATFL.G 


1950 036110 






220$: 


CKLOOP 


036110 


104406 








1951 






? 


If Timer A NOT- Then °rint 


1952 








If Timer B NOT- 1 Then Print 


1953 036112 


005002 






CLR R2 


1954 036114 


042702 


000010 




BIC 0S2.ATIM.R2 


1955 036120 


052702 


000004 




BIS 0S2.BTIM.R2 


1956 036124 


012700 


037762' 




MOV 0T16BFSTA.ro 


1957 036130 


016001 


000002 




MOV 2(R0),R1 


1958 036134 


042701 


177763 




BIC 0tC<S2.ATIM!S2.BTIM>, 


1959 036140 








FORCERROR 272$ .NOTSSR 


1960 036150 


020201 






CMP R2.R1 


1961 036152 


001404 






BEQ 280$ 


1962 036154 








NEXT. ERRNO 


1963 036154 






272$: 


ERRHRD ERRNO, T16T53, TIMEXP 


036154 


104456 









,WORD PKTSSR 



{SET FATAL ERROR FLAG 

lLOCP ON ERROR, IF FLAG SET 

TRAP 
Error 
Error 

lINIT EXPD 

{TIMER A EXPD-1 

I TIMER B EXPD-1 

jGET RECV READ STATUS 

{GET RECV BYTE 2 

{SAVE TIMER A:B RECV ONLY 

lOQO 

I EXPD EQUAL RECV? 

I BR IF YES 



C$CLP1 



Rl 



{REPORT ERROR 



l LOOP ON ERROR, IF FLAG 



TRAP 
.WORD 
.WORD 
WORD 
SET 
TRAP 



C$ERHRD 
516 

T16T28 
TIMEXP 

C$CLP1 



with 53 microsecond delay 
{RESET TIMER COMMAND 
1 53 MICROSECOND DELAY 
; SETUP T16PK2 COMMAND PACKET 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{SSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET CGOOO RETURN) 
{SAVE CONTENTS OF TSSR 



tDEVICF; FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.IIORD 



{SET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
517 

T162SSR 
PKTSSR 



CSCLP1 



Error 

Error 

jINIT EXPO 

{TIMER A EXPD-0 

j TIMER B EXPD-1 

jGET RECV READ STATUS 

{GET RECV BYTE 2 
11 »SAVE TIMER A:B RECV ONLY 

isao 

tEXPD EQUAL RECV? 
I BR IF YES 



{REPORT ERROR 



TRAP 



C$ERHRD 



M10 



TSV5 - HARDWARE TESTS 

TEST 5: SUBTEST 2: VERIFYTlME 



mcm WU 



Ol-FEB-84 17:02 



1964 

1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 



1977 
1978 

19 79 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 



1992 

1993 

1994 



1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 



036156 
036160 
036162 
036164 
036164 

036166 
036172 
036176 
036202 
036206 
036212 
036216 
036232 
036234 
036236 
036236 
036236 
036240 
036242 
036244 
036246 
036252 
036252 



036254 
036256 
036262 
036266 
036272 
036276 
036302 
036312 
036314 
036316 
036316 
036316 
C36320 
036322 
036324 
036326 
036326 

036330 
036330 
036330 

036332 
036336 
036340 
036344 
036350 
036352 
036356 



001006 

037340' 

015362* 

104406 

012700 
013701 
004737 
012704 
010465 
004737 

103407 
010001 



000001 

036370' 

037652' 

040000' 

000000 

016146' 



104403 

005737 
001402 
004737 
004737 
103002 
000137 



280$: CKLOC 


)P 


! DO A 


Write Control 


MOV 


OMS.RSD,RO 


MOV 


T16D78.R1 


JSR 


PC.T16WMISC 


MOV 


4T16PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


FORCERROR 312 


BCS 


320$ 


MOV 


R0.R1 


NEXT 


,ERRNO 



{LOOP ON ERROR, IF FLAG 



.WORD 

.WORD 
.WORD 
SET 
TRAP 



104455 

001007 

036477' 

011656' 

005237 002222' 

104406 



005002 

052702 000010 

042702 000004 

012700 037762 

016001 000002 

042701 177763 

020201 
001404 



104456 
001010 
037440' 
015362' 

104406 



320$: 



372$: 



380$; 



002222 

017014 
016270 

034332 



RESET TIMER with 78 microsecond delay 
j RESET TIMER COMMANO 
{ 78 MICROSECOND DELAY 
j SETUP T16PK2 COMMANO PACKET 
j GET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

$ {QOOFORCE ERROR IF FORCER-1 

I BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



SEQ 129 



518 

T16T53 
TIMEXP 

C$CLP1 



312$: ERRDF ERRNO, T162SSR.PKTSSR 



{DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
519 

T162SSR 
PKTSSR 



INC FATFLG 




{SET FATAL ERROR FLAG 






CKLOOP 




iLOOP ON ERROR, IF FLAG 


SET 
TRAP 


C$CLP1 


IF Timer A NOT- 1 Then Print 


E 


rror 






If Timer B NOT- Then Pr;nt 


E 


rror 






CLR R2 




jINIT EXPD 






BIS *S2.ATIM,R2 




{TIMER A EX°D-1 






BIC OS2.BTIM.R2 




{TIMER B EXPD-0 






MOV $T16BFSTA,R0 




{GET RECV READ STATUS 






MOV 2(R0),R1 




tGET RECV BYTE 2 






BIC *tC<S2.ATIM!S2.BTIM>,l 


*1 


{SAVE TIMER A:B RECV ONLY 




FORCERROR 372$,N0TSSR 




;SQD 






CMP R2.R1 




5EXPD EQUAL RECV? 






BEQ 380$ 




{BR IF YES 






NEXT. ERRNO 










ERRHRD ERRNO, U6T76, TIMEXP 




{REPORT ERROR 


TRAP 

.WORD 

.WORD 

.WORD 


C$ERHRD 
520 
T16T78 
TIMEXP 


CKLOOP 




{LOOP ON ERROR, IF FLAG 


SET 
TRAP 


C$CLP1 



ENDSUB 





1ST 


FATFLG 




BEQ 


460$ 




JSR 


PC.CKDROP 


460$: 


JSR 


PC.TSTLOOP 




BCC 


465$ 




JMP 


T16L00P 


465$: 







j //////////// END SUBTEST ////////// 

L10055; 

TRAP C$ESUB 

{ANY FATAL ERRORS ? 

{BRANCH IF NOT 

i TRY TO DROP THE UNIT 

{SHOULD WE DO ITERATIONS? 

j BR IF NO 

{LOOP UNTIL ITERATIONS DONE 



N10 
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SEQ 130 



2005 



2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 

2025 
2026 
2027 
2028 
2029 
203u 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
204 7 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 



036356 
036356 
036360 



036362 
036364 
036366 
036370 



036372 
036442 
036477 
036543 
036610 
036712 
037024 

037141 

037240 
037340 
037440 



037540 
037540 
037544 
037550 
037554 
037556 
037562 
037566 
037570 
037574 
037576 
037600 
037604 



037606 
037606 
037612 
037616 
037622 
037624 
037626 
037630 



104432 
001534 



000001 
000040 
000076 
000142 



105 
127 
127 
127 
102 
104 
124 

124 
124 
124 
124 



EXIT 



TST 



,////////// EXIT TEST 



012700 

012720 

012720 

005020 

012720 

012720 

005020 

012720 

005021 

005010 

00503 f 

000207 



012701 
012702 
105021 
005302 
003375 
000207 



170 
122 
122 
122 

165 
141 

123 

151 
151 
151 
151 



037720' 

100004 

037730' 

000012 
037742' 

000024 
037742 1 



037742 
000026 



164 
111 
111 
111 
163 
164 
123 

155 
155 
155 
155 



////////// 

TRAP C$EXIT 
.WORD L10053 



LOCAL STORAGE FOR THIS TEST 



T16D01 
T16D28 
T16D53 

T16D78 



j LOCAL TEXT 
} - 



WORD 
WORD 
WORD 
WORD 



1 

40 
76 
142 



} 1 MICROSECOND DELAY (ACTUALLY .8 MIC) 
j 28 MICROSECOND DELAY (.8 MICROS PER) 
I 53 MICROSECOND 
j 78 MICROSECOND 



MESSAGES FOR TEST 



TST16ID; 

T16SSR; 

T162SSR, 

T163SSR 

T16TSBA 

T16LEN: 

T16REJ: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

ASCIZ 

ASCIZ 



.ASCIZ 'Extended Features Switch and Timers A,B' 

'WRITE CHARACTERISTICS Failed' 

'WRITE SUBSYSTEM (Write MIsc) Failed' 

•WRITE SUBSYSTEM (Read Status) Foiled' 

'Bus Address Register (TSBA) Incorrect after Write Characteristics' 

'Data Field Length in Message Buffer Incorrect after Write Characteristics' 

1 TSSR Function Reject Not Returned When Non -Ex i stent Buffer Address Spec! fie 



T16T01:. ASCIZ 
T16T28: .ASCIZ 
T16T53: .ASCIZ 
T16T78:. ASCIZ 
.EVEN 



' Timer A,B 
' Timer A.B 
1 Timrr A.B 
'T!r,.er A.B 



Incorrect 
Incorrect 
Incorrect 
Incorrect 



after Reset 
after Reset 
after Reset 
after Reset 



Tinier with 
Timer with 
T imer w i th 
Timer wi th 



1 microsecond Delay' 
28 microsecond Delay' 
53 microsecond Delay' 
78 microsecond Delay' 



{ SET 



DEFAULT PACKET 



T16REST: 



MOV *T16PACKET,R0 

MOV 4100004, CRO)* 

MOV *T15DATA,CR0)* 

CLR CR0)f 

MOV 010.. (RO)* 

MOV <M16BFR,(R0)* 

CLR (RO)* 

MOV 420..CR0)* 

CLR (R0)< 

CLR (RO) 

CLR T16BFR 

RTS PC 



{PACKET ADDRESS 

;WRITE CHARACTERISTICS WITH ACK 

j ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF MESSAGE PACKET 

{MESSAGE BUFFER ADDRESS 

{CLEAR EXTENOED BUFFER ADDRESS 

{LENGTH 0* 7 MESSAGE BUFFER 

{CLEAR ESS>ENe,EAI,ERI 

{CLEAR EXTENDED FEATURES WORD 

jCLEAR 1ST LOCATION IN MESSAGE BUFFER 



i ♦ 



CLEAR MESSAGE BUFFER 



ri6CLRBUF; 




SAVREG 




MOV 


0T16BFR.R1 


MOV 


*T16BEND-U6BFR I R2 


10$: CLRB 


CRD* 


DEC 


R2 


BGT 


10$ 


RTS 


PC 



{SAVE R1-R5 UNTIL NEXT RE1URN 

{GET MESSAGE BUFFER ADDRES5 

jSIZE OF MESSAGE BUFFER IN BYTES 

{CLEAR A BYTE 

{ DONE ? 

jBR IF NO 

{RETURN 



TSV5 - HARDWARE TESTS MACRO M1U3 01 -FEB -84 WjO? 
TEST 5: SLBTEST 2j VERIFY TIMERS A V B 



Bll 



SEQ 131 



2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2099 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2116 



037632 
03"632 
037636 
037642 
037646 
037650 



037652 
037652 
037656 
037662 
037666 
037672 
037674 
037676 



037700 
037700 
037704 
037710 
037714 



037716 



037720 
037720 
037722 
037724 
037726 

037730 
037/30 
037 732 
037734 
0377J6 
037740 



004737 037606' 
012700 040010' 
112720 000005 
105010 
000207 



004737 
012702 
112722 
110022 
110112 
000207 



012700 
112720 
112710 
000207 



10OO04 
037730 
000000 
0OOO12 



037742 
OOOOOO 
0OOO24 
OOOOOO 
OOOOOO 



037606' 

040010 

000010 



040010' 
000010 

000200 



! SETUP T16PK2 PACKET FOR READ STATUS 

T16SRD! 

JSR P':,U6CLRBUF 

MOV •U60T2.RO 

MOVB •PW,ADSTATUS.(»*0)» 

CLRB (RO) 

RTS PC 



SETUP T16PK2 PACKET FOR WRITE MISC. 



I CLEAR MESSAGE BUFFER 

jWRITE SUBSYSTEM DATA BUFFER 

j STORE READ STATUS COMMAND IN BSELO 

i CLEAR BSEL1 

I RE TURN 



INPUT: 

RO 
Rl 

tl6WMISC: 

SAVREG 

JSR 

MOV 

MOVB 

MOVB 

MOVB 

RTS 



CONTAINS WRITE 
CONTAINS DELAY 



MISC FUNCTION CODE (BSELl) 
(TIMES 800 NS) FOR BSEL2 



PC.T16CLRBUF 

•T16DT2.R2 

•PW.WMISC.CR2>* 

R0,(R2>» 

R1.CR2) 

PC 



I SAVE R1-R5 UNITL NEXT RETURN 

I CLEAR MESSAGE BUFFER 

SUBSYSTEM DATA BUFFER 
WRHE MISCELLANEOUS IN BSELO 
WRITE MISC COOC IN BSELl 
DELAY (RESET TIMER) IN BSEL2 



iWRITE 
I STORE 
I STORE 
iSTORF 

I RE TURN 



j SETUP 

V16SEXT 



T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 



MOV ♦T16DT2.R0 

MOVB ♦PW.WMISC.CRO)* 

MOVB ♦MS.EXT.(RO) 

RTS PC 



■BLKB 10-<.-TSV267> 

[WRITE CHARACTERISTICS COMMAND PACKET 

U6PACKETf 

.WO«D 
.WORD 
• WORD 
.WORO 



iWRITE SUBSYSTEM DATA BUFFER 

iSTORE WRITE MISCELLANEOUS IN BSELO 

j STORE INVERT EXTENOED FEATURES IN BSELl 

iRETURN 



T16DATAj 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



1 MESSAGE BUFFER 



100004 

T16DATA 



10. 



U6BFR 



20. 







iCOmAND PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND. WUH ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

jMESSAGE PACKET SUl 

jCHARACTERISUCS DATA BLOCK 
tAODRESS OF MESSAGE BUFFER 

, LENGTH OF MESSAGE BUFFER 
jESS.ENC.EAI.ERI 
i&XTENQED FEATURES WORD 



Cll 



TSV5 - HARDWARE 
TEST 5: SUBTES 


^Vh 


2119 




2120 037742 




2121 037742 


000000 


2122 037744 


000000 


2123 037746 


000000 


2124 037750 


000000 


2125 037752 


000000 


2126 037754 


000000 


2127 037756 


000000 


2126 037760 


000000 


2129 037762 




2130 037770 




2131 




2132 




2133 




2135 037770 




2137 040000 




2138 040000 


100006 


2139 040002 


040010 


2140 040004 


000000 


2141 040006 


000012 


2142 




2143 040010 




2144 040010 


000 


2145 040011 


000 


2146 040012 


000000 


2147 040014 




2148 




2149 




2150 040114 




040114 




040114 


104401 


2151 




2152 




2153 




2154 




2155 




2156 




2157 




2l5e 




2159 




2160 




2161 




2162 




2163 




2164 




2165 




2166 




216 7 




2168 




2169 




2170 




2171 




2172 




2173 




2174 040116 




Q40116 





l-FEB-84 17}02 




T16BFRi 




.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





♦ WORD 





T16BFSTA: .BLKB 


6 


T16BEN0: 

i 





SEQ 132 



»BEGIN MESSAGE BUFFER 

, MESSAGE TYPE 

iDATA FIELD LENGTH 

jRBPCR 

iXSTO 

iXSTl 

»XST2 

IXST3 

|XST4 

jREAD 

jENO 



(ALWAYS PRESENT FOR WRITE SUBSYSTEM 
STATUS AND WRITE FIFO BUFFER 
OF MESSAGE BUFFER 



iWRITE SUBSYSTEM READ STATUS COMMAND PACKET 



T16PK25 



,BLKB 10-<.-TSV2£7> 



T16DT2: 



.WORD 

.WORD 
.WORD 
• WORD 



.BYTE 
.BYTE 
.WORD 
♦ BLKB 



ENDTST 



.SBTTL TEST 6: FIFO EXERCISER 



P.WRTSUBiP.ACK 

T16DT2 



10. 






64 



iWRITE SUBSYSTEM WITH ACK 
lLOW ADDRESS OF DATA 8L0CK 
I HIGH ADDRESS OF DATA BLOCK 
jHINIMUM MESSAGE PACKET SIZE 



iDATA BLOCK 

jBSELO 

tBSELl 

|SEL2 

I WRITE FIFO 



DATA OUTPUT BUFFER 



L 10053 j 



TRAP 



CIETST 



TEST DESCRIPTION} 



This test use* tr* Writ* Subsystem Memory command to 
verify the controller's FIFO and associated status and 
control logic. 



TEST STEPS: 



REPEAT FOR LOOPCNT 




BEGIN 




Do Subtest 1 


- FIFO 


Do Subtest 2 


- FIFO 


Do Subtest 3 


- FIFO 


Do Subtest 4 


FIFO 


Do Subtest 5 


- FIFO 


Do Subtest 6 


• FIFO 



END 



Initialize status test 
Writs Single Byte test 
Writs Multiple Bytes teit 
Verify ILW Status test 
Input Resdy test 
Verify Reset FIFQ test 



BGNTST 



Tot: 



va b T -<,?wyigi§ER mcRo Mui5 oi - feb - m i7!02 



Dll 



SEQ 133 



2179 
2180 
2101 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
?208 
2209 
2210 
2211 



2212 
2213 
2214 
2215 
2216 
2217 
2218 



2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 



040116 
040122 
040126 
040134 

040140 
040144 



040144 
040144 
040144 



040146 
040146 
040152 
040154 
040156 
040156 
040160 
040162 
040164 

040166 
040172 

040176 
040202 
040? 16 

040220 
040222 
040222 
040222 
040224 



012700 046346' 

004737 016322* 

012737 000012 002216 

004737 017106* 

005037 003134' 



MOV 


*TSU7ID,R0 


JSR 


PC.TSTSETUP 


MOV 


#10. ,L00PCNT 


JSR 


PC.KTOFF 


CLR 


KTENABLE 


T17L00P; 





I ASCII MESSAGE TO IDENTIFY TEST 
I DO INITIAL TEST SETUP 
, PERFORM 10 ITERATIONS 
iSHur OFF MEMORY MANAGEMENT 
iREALL 1 * SHUT DOWN KT-11 



.SBTTL TEST 6: SUBTEST 1} FIFO INITIALIZE STATUS TEST 

TEST 6: SUBTEST 1: 

SUBTEST DESCRIPTION} 

This test verifies, by using tht Read Statu* oelect code. 
that the FIFO status it in the correct Initial state after 
th* controller is initialized (Input Ready TRUE, 
Output Ready and Data In Miss FALSE). These status 
signals are checked by the controller's self -test 
sequence, so this subtest is actually more of a partial 
check of the Read Status function than the FIFO status* 

TEST STEPS: 



BEGIN 

Writ 

Do 

Do 

If 

If 

If 
ENO 



to TSSR to soft initialize 
a WRITE CHARACTERISTICS to setup a message buffer 
a WRITE SUBSYSTEM Read Status 
Input Ready NOT-l Then Print Error 
Output Ready N0T«0 Then Print Error 
Data In Miss NOT-0 Then Print Error 



BGNSUB 



104402 



004737 015604 1 

103405 

010001 

104455 
001130 
003646' 
011644' 

005037 002222 
012704 047740 
004737 010472' 

103407 
010001 



104455 
001131 



;//////////// BEGIN SUBTEST ////////// 

T6.1: 

TRAP C*BSU8 



5*5 



Write to TSSR register to soft initialize the controller 



JSR 
BCS 
MOV 
ERRDF 



PC.SOFINIT 

10$ 

R0.R1 

ERRN0.5FIERR.SFIMSG 



10*; 



>WRITE TO TSSR TO SOFT INITIALIZE 
jBR IF SOFT INIT OKAY 
i SAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 
Do a WRITE CHARACTERISTICS to setup a message buffer 



CIERDF 
600 
SFIERR 
SFIMSG 



42*: 



CLR FATFLG 

MOV *T17PACKET,R4 

JSR PC.WRTCHR 

FORCERROR 42* 

BCS 50* 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T17SSR.PKTSSR 



iCLEAR FATAL ERROR FLAG 

iGET THE ADDRESS OF COMMAND PKKET 

I DO WRITE CHARACTERISTICS CWh.tf) 

iWJDFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP C*ERDF 
.WORD 601 



Ell 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 6: SUBTEST 1; FIFO INITIALIZE 



01-FEB-84 17:02 
STATUS TEST 



SEQ 134 





040226 


046365' 






040230 


011656* 




2228 


040232 


005237 


002222' 


2229 


040236 








040236 


104406 




2230 








2231 








2232 


040240 


004737 


047524* 


2233 


040244 


012704 


050110' 


2234 


040250 


010465 


000000 


2235 


040254 


004737 


016146' 


2236 


040260 






2237 


040274 


103407 




2238 


040276 


010001 




2239 


040300 






2240 


040300 








040300 


104455 






040302 


001132 






040304 


046466' 






040306 


011656' 




2241 


040310 


005237 


002222' 


2242 


040314 








040314 


104406 




2243 








2244 


040316 


004737 


047706* 


2245 


040322 


012701 


046142* 


2246 


040326 


C12702 


050002* 


2247 


040332 


012221 




2248 


040334 


011211 




2249 


040336 


052711 


000020 


2250 


040342 


042711 


000040 


2251 


040346 


042711 


000200 


2252 








2253 








2254 


040352 


005000 




2255 


040354 


012701 


047762' 


2256 


040360 


012702 


046122' 


2257 


040364 


012703 


000024 


2258 


040370 


004737 


011310* 


2259 


040374 






2260 


040404 


103404 




2261 


040406 






2262 


040406 








040406 


104456 






040410 


001133 






040412 


046705' 






0^0414 


012160' 




226 T 


^40416 








040416 


104406 




2264 








2265 


O40420 
040420 








040420 


104403 




2266 








2267 


040422 


005737 


002222' 


2268 


040426 


001402 




2269 


040430 


004737 


017014 



50$: 



INC 
CKLOOP 



FATFLG 



.WORD 
.WORD 
»SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG SET 

TRAP 



T17SSR 
PKTSSR 



C*CLP1 



621: 



Do a Writ* Subeyetem READ STATUS 

JSR PC,T17SftD 

MOV 0T17PK2.R4 

MOV R4,TSDB(R5) 

JSR PC t CHKTSSR 

FOPCERROR 62 * 

BCS 70* 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO , T 173SSR . PKTSSR 



{SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
l WAIT FOR SSR TO SET 

jBSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 

i DEVICE FATAL SSR FAILED TO SET 



70$: 



INC 
CKLOOP 



FATFLG 



Set WORDS 0-7 of expd message buffer 



JSR PC.T17SETEXP 

MOV *T17EXSTA,R1 

MOV *T17BFSTA,R2 

MOV (R2)*,(R1)* 

MOV (R2).(R1) 

BIS *?2.INRDY,CR1) 

BIC ♦S2.0OTRDY.CR1) 

BIC ♦S2.DIM.CR1) 



TRAP 


CIERDT 


.WORD 


602 


.WORD 


T173SSR 


.WORD 


PKTSSR 


iSET FATAL ERROR FLAG 




j LOOP ON ERROR, IF FLAG SET 




TRAP 


C5CLP1 


uffer ■ to rtcv since not test 


\f\Q 



jSET WORDS 0-7 EXPD-RECV 
»GET EXPECTEO READ STATUS 
iGET RECV READ STATUS 
l SET EXPO WORD *8 - RECV TEMP 
j SET EXPO WORD 09 » RECV TEMP 
{SET EXP INPUT REAOY- TRUE 
iSET EXP OUTPUT READY- FALSE 
i SET EXP DATA IN MISS - FALSE 



If Input Ready NOT-1 than Print Error 

If Output Ready NOT-0 or Data in Miea NOT-0 Then Print Error 



CLR 

MOV 
MOV 
MOV 
JSR 



RO 

*T17BFR ( R1 
0T17EXP.R2 
*20.,R3 

PC,CKMSG2 



82$,N0TSSR 



82$: 



90$: 



FORCERROR 
BCS 90$ 

NEXT.ERRNO 

ERRMRD ERRNO, T171CMP.MSGSTAT 



CKLOOP 



ENDSU6 



TST 


FATFLG 


BEG) 


160$ 


JSR 


PC.CKDROP 



{HIGH RECV ADDRESS FOR CKMSG2 

tLOW RECV AODRESS FOR CKMSG2 

»EXPD ADDRESS 

j NUMBER OF BYTES TO COMPARE 

;EXPD EQUAL RECV? 

iQQO 

iBR IF YES 

j REPORT ERROR 



j LOOP ON ERROR, 



j//////////// ENO SUBTEST ////////// 

L 10057: 

TRAP LJESU6 

,ANY FATAL ERRORS ? 

j BRANCH IF NOT 

I TRY TO DROP THE UNIT 



TRPP 


C$ERHRD 


.WORO 


603 


.WORD 


T171CMP 


.WORD 


MSGSTAT 


IF FLAG SET 




TRAP 


C$CLP1 



Fll 



TSV5 - HARDWARE TESTS MACRQ 
TEST 6: SUBTEST 1; FIFO ~ 



INlTlAl^E 



ST^fu! 



;b-j 

i Tl 



15 17:02 
ST 



SEQ 135 



2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 



2318 
2319 
2320 
2321 
2322 
2323 
2324 



040434 



160$: 



TEST 



040434 
040434 
040434 104402 



040436 

040436 004737 015604 

040442 103405 

040444 010001 

040446 



,SBTTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



6: SUBTEST 2: 



SUBTEST DESCRIPTION: 



This subtest verifies the ability of the FIFO to correctly 
pass a single data byte from input to output. For each 
" nr ~ r data values (0-377 octal) the following Is done? 
1, Initial FIFO status is checked 

specifying a count of 



of 256 



2. The Write FIFO function, 
one byte to be written is executed* 

3. Read Status is executed and FIFO status 19 checked, 

4. Read FIFO is executed and the data and final status 
is checked, 



TEST STEPS: 



BEGIN 



Write to TSSR to soft initialize 

Oo a WRITE CHARACTERISTICS to setup a message buffer 

Do a Write Subsystem READ STATUS 

If Input Ready NOT-1 Then Print Error 

If Output Ready NOT-0 Then Print Error 

If Data In Miss NOT-0 Then Print Error 



REPEAT F0« 
BEGIN 

Do 

Do 

Do 

If 

If 

If 

Do 

If 

Do 

If 

If 

If 
END 
END 



DATA FROM TO 377 OCTAL 



a Write 
a Write 
a Write 
Input Heady 
Output Ready 
Data In hi sit 



Subsystem WRITE NPR to set tape direction out 
Subsystem WRITE FIFO tilth byte count equal to 
Subsystem READ STATUS 

NOT-1 Then Print Error 

NOT-1 Then Print Error 

NOT-0 Then Print Error 



Write Subsystem REAO FIFO with byte count equal to 1 
Data read from FIFO NOT- to Data sent Then Print Error 
a Writ* Subsystem READ STATUS 



Insxjt rteady 
Output Ready 
Data In Miss 



NOT-1 
NOT-0 
NOT-0 



Then 
Then 
Then 



Print 
Print 
Print 



Error 
Error 
Error 



BGNSUB 



\//////////// BEGIN SUBTEST ////////// 

T6.2: 

TRAP C*BSUB 



5$: 



Write to TSSR register to soft initialize the controller 



JSR PCSOFINIT 

BCS 10$ 

MOV R0,R1 

ERRDF ERRNO , SF IERR % SF IMSG 



j WRITE TO TSSR TO SOFT INITIALIZE 
iBR IF SOFT INIT OKAY 
j SAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING INIT 



Gil 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 6; SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



SEQ 136 



040446 


104455 




040450 


001133 




040452 


003646' 




040454 


011644' 




2325 






2326 040456 


005037 


002222' 


2327 040462 


012704 


047740' 


2328 040466 


004737 


010472' 


2329 040472 






2330 040506 


103407 




2331 0*0510 


010001 




2332 040512 






2333 040512 






040512 


104455 




040514 


001134 




040516 


046365' 




040520 


011656' 




2354 040522 


005237 


002222' 


2335 040526 






040526 


104406 




2336 






2337 040530 


004737 


047524' 


2338 040534 


012704 


050110' 


2339 040540 


010465 


000000 


2340 040544 


004737 


016146' 


2341 040550 






2342 040564 


103407 




2343 040566 


010001 




2344 040570 






2345 040570 






040570 


104455 




040572 


001135 




040574 


046466* 




040576 


011656' 




2346 040600 


005237 


002222' 


2347 040604 






040604 


104406 




2348 






2349 040606 


004737 


047706' 


2350 040612 


012701 


046142' 


2351 040616 


012702 


050002' 


2352 040622 


012221 




2353 040624 


011211 




2354 040626 


052711 


000020 


2355 040632 


042711 


000040 


2356 040636 


042711 


000200 


2357 






2358 






2359 040642 


005000 




2360 040644 


012701 


047762' 


2361 040650 


012702 


046122' 


2362 040654 


012703 


0OO024 


2363 040660 


004737 


011310' 


2364 040664 






2365 040674 


103404 




2366 040676 






2367 040676 







Do a WRITE CHARACTERISTICS to setup a message buffer 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
603 
SFIERR 
SFIMSG 



10$: CLR FATFLG 

MOV *U7PACKET,R4 
JSR PC.WRTCHR 
FORCERROR 42$ 
BCS 50$ 
MOV R0.R1 
NEXT. ERRNO 

42$: ERRDF ERRNO. T17SSR, PKTSSR 



t CLEAR FATAL ERROR FLAG 

»GET THE ADDRESS OF COMMAND PACKET 

I DO WRITE CHARACTERISTICS COMMAND 

{S80F0RCE ERROR IF FORCER- 1 
j BR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 

.WORD 604 

.WORD T17SSR 

.WORD PKTSSR 





INC FATFLG {SET FATAL ERROR FLAG 


50$: 


CKLOOP {LOOP ON ERROR, IF FLA':, SET 




TRAP C$CLP1 


i 


Do a Write Subsystem READ STATUS 

JSR PC.T17SRD j SETUP PACKET FOR READ STATUS 






MOV *T17PK2.R4 {GET WRITE SUBSYSTEM COMMANO PACKET 




MOV R4.TSDBCR5) {SET THE PACKET ADDRESS TO EXECUTE 




JSR PC,CHKTSSR {WAIT FOR SSR TO SET 




FORCERROR 62$ {S8DF0RCE ERROR IF FORCER-1 




BCS 70$ {BR IF CARRY SET (GOOD RETURN) 




MOV R0.R1 j SAVE CONTENTS OF TSSR 




NEXT. ERRNO 


62$: 


ERRDF ERRNO, T173SSR , PKTSSR {DEVICE FATAL SSR FAILED TO SET 




TRAP C$ERDF 




.WORD 605 




.WORD T173SSR 




.WORD PKTSSR 



70$ 

J 



INC 
CKLOOP 



FATFLG 



j SET FATAL ERROR FLAG 
j LOOP ON lERROR. IF FLAG SET 

TRAP 



C$CLP1 



Set WORDS 0-7 of expo* message buffer - to recv f !nct rvot testing 



JSR PC.T17SETEXP 

MOV «T17EXSTA,R1 

MOV </T17BFSTA < R2 

MOV CR2)»,CR1)* 

MOV (R2),(R1) 

BIS *S2.INRDY,(R1) 

BIC eS2.0UTRDY.CRl) 

BIC 0S2.DIM.CR1) 



{SET WORDS 0-7 EXPD-RECV 
{GET EXPECTED REAO STATUS 
j GET RECV READ STATUS 
I SET EXPO WORD #8 - RECV TEMP 
» SET EXPD WORD *9 - RECV TEMP 
{SET EXP INPUT READY- TRUE 
{SET EXP OUTPUT READY- FALSE 
,SET EXP DATA IN MISS - FALSE 



If Input Ready NOT-1 then Print Error 

If Output Ready NOT-0 or Data in Miaa NOT-0 Then Print Error 



CLR 
MOV 
MOV 
MOV 
JSR 



RO 

*T17BFR,R1 
«T17EXP,R2 
*20. ,R3 
PC.CKMSG2 



82$,N0TSSR 



82$: 



FORCERROR 

BCS 90$ 

NEXT. ERRNO 

ERRHRD ERRNO, T171CMP.MSGSTAT 



{HIGH RECV ADDRESS FOR CKMSG2 

j LOW RECV ADDRESS FOR CKMSG2 

{EXPD ADDRESS 

{NUMBER OF BYTES TO COMPARE 

i EXPD EQUAL RE'"V? 

I SOD 

{BR IF YES 

{REPORT ERROR 



Hll 



TSV5 - HARDWARE 


TESTS 


MACRO M 


TEST 6: 


SUBTEST 2: FIFO WRITE 




040676 


104456 






040700 


001136 






040702 


046705' 






040704 


012160' 




2368 


040706 








040706 


104406 




2369 








2370 








2371 


040710 


012737 


000000 


2372 


040716 






2373 








2374 


040716 


012700 


000100 


2375 


040722 


004737 


047566* 


2376 


040726 


012704 


050110* 


2377 


040732 


010465 


000000 


2378 


040736 


004737 


016146' 


2379 


040742 






2380 


040756 


103407 




2381 


040760 


010001 




2382 


040762 






2383 


040762 








040762 


104455 






040764 


001137 






040766 


046533' 






040770 


011656* 




2384 


040772 


005237 


002222' 


2385 


040776 








040776 


104406 




2386 








2387 


041000 


012700 


000001 


2388 


041004 


012701 


002312' 


2389 


041010 


004737 


047612' 


2390 


041014 


012704 


050110* 


2391 


041020 


010465 


000000 


2392 


041024 


004737 


016146' 


2393 


041030 






2394 


041044 


103407 




2395 


041046 


010001 




2396 


041050 






2397 


041050 








041050 


104455 






041052 


001140 






041054 


046576' 






041056 


011656' 




2398 


041060 


005237 


002222' 


2399 


041064 








041064 


104406 




2400 








2401 








2402 


041066 


004737 


04 7524* 


2403 


041072 


012704 


050110* 


2404 


041076 


010465 


OOOOOO 


2405 


041102 


004737 


016146* 


2406 


041106 






2407 


041122 


103407 




2408 


041124 


010001 




2409 


041126 







,13 01-FI 
!NGLE BYTI 



[ Tl 



14 17 {02 
;ST 



90$: 



CKLOOP 



{LOOP ON ERROR, U* FLP'J 



TRAP 

. fcORO 

JLT 

TRAP' 



SEQ 137 



CIERHRD 

i 1/1A.*1P 

M-3STAT 
C$CLP1 



j Repeat for DATA from to 377 

MOV *0 t DATA 

100$: 
i Do a Writ* Subsystem WRITE 

MOV ♦NP.QUT.RO 

JSR PC.T17SNPR 

MOV «T17PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 102$ 

BCS 105$ 

MOV R0,R1 

NEXT.ERRNO 
102$: ERRDF ERRN0.T174SSR, PKTSSR 



NPR 



iGET FIRST DATA 
I REPEAT LABEL 
to set tape direct ion out 
jSET TAPE DIRECTION OUT 
{SETUP T17PK2 FOR WRITE UPr! 
iGET WRITE SUBSYSTEM C0M1AM) ?A..KET 
j SET THE PACKET ADDRESS TO FXECUTE 
{WAIT FOR SSR TO SET 

jSSDFORCE ERROR VT FlMCER-1 
jBR IF CARRY SET CGOOO RE VRN) 
I SAVE CONTENTS OF TSSR 



105$: 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 




TRAP 


C$ERDF 


.LORD 


607 


.WiMD 


T174SSR 


.WORD 


PKTSSR 



{SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



SET 
TRAP 
a Write Subsystem L.ilTE FIFO with byte count ecjoal to 1 



Do 

MOV 

MOV 

JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 110$ 

MOV R0,R1 

NEXT.ERRNO 



C$CLP1 



#1,R0 

*0ATA,R1 
PC.T1VMFIF 

*T17PK2,R4 

R4,TSDB(R5) 

PC.CHKTSSR 

107$ 



iWRITE 1 BYTE 

iFIFO WRITE DATA ADDRESS 

I SETUP T17PK2 FOR WRITE FIFO 

{GET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

tWAIT FOR SSR TO SET 

iSflOFORCE ERROR IF FORCER -1 
jBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 



107$: ERRDF ERRNO, T175SSR, PKTSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 



110$: 



INC 


FA1 


rFLG 


CKLOOP 






Do a Wr 


ite 


Subsystem 
T17S&D 


JSR 


PC 


MOV 


*T17PK2,R4 


MOV 


R4 


TSDBCR5) 


JSR 


PC 


CHKTSSR 


FORCERROR 


112$ 


BCS 


120$ 


MOV 


RO 


Rl 


NEXT. EN 


RNO 





} SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



C$ERDF 
608 

T175SSR 
PKTSSR 



C$CLP1 



READ STATUS 



I SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMANO PACKET 
{SET THE PACKET ADORESS TO EXECUTE 
{WAIT FOR SSR TO SET 

jMDFORCE ERROR IF F0RCER«1 
{BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



Ill 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17j02 
TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



2410 



2411 
2412 

2413 
2414 
2415 
2416 
2417 
24 IP. 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 



2433 

2434 
2435 
2436 
2437 
2436 
2439 
2440 
2441 
2442 
2443 
2444 
2445 



2446 
244 7 

2448 

2449 
2450 
2451 



041126 
041126 
041130 
041132 
041134 
041136 
041142 
04H42 

041144 
041150 
041154 
041160 
041J62 
041164 
04H70 
041174 



041200 
041202 
041206 
041212 
041216 
041222 
041232 
041234 
041234 
041234 
041236 
041240 
041242 
041244 
041244 



041246 
041252 
041256 
041262 
041266 
041272 
041306 
041310 
041312 
041312 
041312 
041314 
041316 
041320 
041322 
041326 
041326 

041330 
041334 
041340 



104455 
001141 
046466' 
011656' 
005237 002222 



104406 

0O4737 
012701 
012702 
012221 
011211 
052711 
052711 
042711 



047706 
046142 
050002' 



000020 
000040 
000200 



005000 

012701 047762' 

012702 046122' 

012703 000024 
004737 011310' 

103404 



104456 
001142 
047063' 
012160 

104406 



012700 000001 

0O4737 04 7646' 

012704 050110' 

010465 000000 

0O4737 016146' 

103407 
010001 



104455 
0C1143 
046642' 

011656' 

005237 002222' 

104406 

004737 047706' 

012701 046142" 

012702 050002* 



112$: ERRDF ERRNO,U73SSR, PKTSSR iDEVICE FATAL SSR 



120$: 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



FAILED TO SE 
TRAP 
.WORD 
.WORD 
.WORD 



SEQ 138 



CIERDF 
609 

T173SSR 
PKTSSR 



Set WORDS 0-7 of expd message buffer 

i SET 



132$ 



140$ 



142$: 



150$: 

i 



JSR PC.T17SETEXP 

MOV 0T17EXSTA.R1 

MOV 0U7BFSTA.R2 

MOV (R2)*.CR1)» 

MOV (R2),(R1) 

BIS *S2.INRDY,(R1) 

BIS *S2.0UTRDY,CR1) 

BIC *S2.DIM,CR1) 

If Input Ready NOT-l then 



If Output Ready NOT-l on Data 

CLR RO 

MOV *T17BFR f Rl 

MOV *T17EXP,R2 

MOV *20.,R3 

JSR PC.CKMSG2 

FORCERROR 132$,N0TSSR 

BCS 140$ 

NEXT.ERRNO 

ERRHRD ERRN0.T173CMP.MSGSTAT 



CKLOOP 



Do Write Subeyetem READ FIFO w 

MOV •1,R0 

JSR PC.T17RFIF 

MOV eT17PK2.R4 

MOV R4.TSDBCR5) 

JSR PC,CHKTSSR 

FORCERROR 142$ 

BCS 150$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO ♦ T 1 76SSR ♦ PK TSSR 



jGET 
tGET 
»SET 
»SET 
I SET 
j SET 
,SET 
Print Error 



SET 

TRAP C$CLP1 
- to recv mince not testing 
WORDS 0-7 EXPD-RECV 
EXPECTED READ STATUS 
RECV READ STATUS 
EXPO WORD *8 - RECV TEMP 
EXPD WORD *9 - RECV TEMP 
EXP INPUT READY- 1 
EXP OUTPUT READY- 1 
EXP DATA IN MISS ■ 



in Miee NOT-0 Then Print Error 
jHIGH RECV ADORESS FOR CKMSG2 
I LOW RECV ADORESS FOR CKMSG2 
I EXPD ADORESS 

i NUMBER OF BYTES TO COMPARE 
j EXPD EQUAL RECV? 
i MO 



jBR IF YES 
i REPORT ERROR 



I LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERHRD 
610 

T173CMP 
MSGSTAT 

C$CLP1 



i th byte count equal to 1 
jSET READ BYTE COUNT 
I SETUP T17PK2 FOR READ FIFO 
jGET WRITE SUBSYSTEM COMMANO PACKET 
l SET THE PACKET ADORESS TO EXECUTE 
iWAIT FOR SSR TO SET 

jMDFORCE ERROR IF FORCER -1 
l BR IF CARRY SET CGOOO RETURN) 
iSAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


611 


.WORD 


T176SSR 


.WORD 


PKTSSR 



Set WORDS 7 of expd message 
JSR PC.T17SETEXP 

MOV 0T17EXSTA.R1 

MOV 0T17BFSTA,R2 



iSET FATAL ERROR FLAG 
lLOOP ON ERROR. IF FLAG SF.T 

TRAP C$CLP1 
buffer ■ to recv since not testing 
jSET WORDS 0-7 EXPD-RECV 
jGET EXPECTED READ STATUS 
jGET RECV READ STATUS 



Jll 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



SEQ 139 



2452 


041344 


013721 


002312' 


2453 


041350 


011211 




2454 








2455 








2456 


041352 


005000 




2457 


041354 


012701 


047762' 


2458 


041360 


012702 


046122' 


2459 


041364 


012703 


0O0022 


2460 


041370 


004737 


011310' 


2461 


CMU374 






2462 


041404 


103404 




2463 


041406 






2464 


041406 








041406 


104456 






041410 


001144 






041412 


046767' 






041414 


013552' 




2465 


041416 








041416 


104406 




2466 








2467 








2468 


041420 


004737 


047524' 


2469 


041424 


012704 


050110' 


2470 


041430 


010465 


000000 


2471 


041434 


004737 


016146' 


24 72 


041440 






2473 


041454 


103407 




2474 


041456 


010001 




2475 


041460 






2476 


041460 








041460 


104455 






041462 


001145 






041464 


046466' 






041466 


011656' 




2477 


041470 


005237 


002222' 


24 78 


041474 








041474 


104406 




24 79 








2480 


041476 


004737 


047706' 


2491 


041502 


012701 


046142* 


2482 


041506 


012702 


050002' 


2483 


041512 


012221 




2484 


041514 


011211 




2485 


041516 


052711 


000020 


24^6 


041522 


042711 


000040 


2487 


041526 


042711 


000200 


2488 








2489 








2490 


041532 


005000 




2491 


041534 


012701 


04 7762 


2492 


041540 


012702 


046122 


2493 


041544 


012703 


000024 


2494 


041550 


004737 


011310 


2495 


041554 






2496 


041564 


103404 




2497 


041566 






2498 


041566 







152* 



160* 



162$: 



170$: 

I 



MOV DATA,CR1)* tSET EXPO WORD *8 - COUNT DATA 

MOV (R2),CR1) jSET EXPO WORD 09 - RECV (NOT TESTING) 

If Data read from FIFO NOT- to Data sent Than Print Error 

The data is in WORD #8 of the message buffer 



CLR RO 


iHIGH RECV ADDRESS FOR CKMSG2 




MOV *T17BFR,R1 


lLOW RECV ADDRESS FOR CKMSG2 




MOV OT17EXP.R2 


jEXPD ADDRESS 




MOV *18.,R3 


» NUMBER OF BYTES TO COMPARE 




JSR PC.CKMSG2 


jEXPD EQUAL RECV? 




FORCERROR 152 $ , NOTSSR 


,300 




BCS 160$ 


j BR IF YES 




NEXT.ERRNO 






ERRHRD ERRN0,T172CMP,MSGSU8 


l REPORT ERROR 






TRAP 


C$ERHRD 




.WORD 


612 




.WORD 


T172CMP 




.WORD 


MSGSUB 


CKLOOP 


j LOOP CN ERROR, IF FLAG SET 






TRAP 


C$CLP1 



Do a 

JSR 

MOV 

MOV 

JSR 



Write Subsystem READ STATUS 



PC.T17S&D 

*T17PK2,R4 

R4,TSDBCR5) 

PCCHKTSSR 
FORCERROR 162$ 
BCS 170$ 
MOV R0.R1 
NEXT.ERRNO 
ERRDF ERRN0,Tl73SSR,PKTSSR 



INC 
CKLOOP 



FATFLG 



i SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 

, DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 613 
.WORD T173SSR 
.WORD PKTSSR 



{SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG SET 

TRAP 
Set WORDS 0-7 of expd message buffer - to recv aince not testing 



C$CLP1 



JSR PC.T17SETEXP 

MOV *U7EXSTA,R1 

MOV *U7BFSTA,R2 

MOV (R2)*,(Rl)t 

MOV (R2).CR1) 

BIS *S2.INRDY,(R1) 

BIC *S2.0UTRDY,CR1) 

BIC 0S2,DIM,CR1) 



»SET WORDS 0-7 EXPD-RECV 
tGET EXPECTED READ STATUS 
jGET RECV READ STATUS 
j SET EXPD WORD *8 - RECV TEMP 
iSET EXPD WORD *9 - RECV TEMP 
;SET EXP INPUT READY- 1 
I SET EXP OUTPUT READY- 
,SET EXP DATA IN MISS - 



If Input Ready NOT-1 then Print Error 

If Output Ready NOT-0 or Data in Mise NOT-0 Then Print Error 



CLR 
MOV 
MOV 
MOV 
JSR 



RO 

*T17BFR,R1 
*T17EXP,R2 
020. ,R3 
PC.CKMSG2 



172$, NOTSSR 



172$: 



FORCERROR 

BCS 180$ 

NEXT.ERRNO 

ERRHRD ERRNO * T 1 74CMP , MSGST AT 



j HIGH RECV ADDRESS FOR CKMSG2 

I LOW RECV ADDRESS FOR CKMSG2 

i EXPD ADDRESS 

I NUMBER OF BYTES TO COMPARE 

jEXPD EQUAL RECV? 

jfiWO 

iBR IF YES 

i REPORT ERROR 



Kll 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17502 
TEST 6s SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



2499 

2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 



2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
?542 
2543 
2544 
2545 
2546 
254 7 
2548 



041566 
041570 
041572 
041574 
041576 
041576 
041600 
041610 
041614 
041622 
041624 
041630 

041630 
041630 
041630 

041632 
041636 
041640 
041644 



104456 
001146 
047147' 
012160' 

104406 

005237 002312' 

023727 002312' 000377 

101002 

000137 040716' 



104403 

005737 002222' 

001402 

004737 017014' 



180*: CKLOOP 



205 *t 



FORCEXIT 
INC DATA 
CMP DATA ,0377 
BHI 205* 
JMP 100* 



ENDSUB 



205* 



I LOOP ON ERROR, IF FLAG 

;8S0 

jGET NEXT TEST DATA 

iDONE TO 377? 

iBR IF YES 

j DO ANOTHER TEST PATTERN 





SEQ 140 


TRAP 


C*ERHRD 


.WORD 


614 


.WORD 


T174CMP 


.WORD 


MSGSTAT 


SET 




TRAP 


C*CLP1 



I //////////// 



END SUBTEST 
L 10060: 

TRAP 



////////// 



C*ESU6 



260$: 



I ANY FATAL ERRORS ? 

i BRANCH IF NOV 

jTRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 



TST 


FATFLG 


BEQ 


260$ 


JSR 


PC.CKDROP 



TEST 6: SUBTEST 3: 

SUBTEST DESCRIPTION: 

This subtest verifies the ability of the FIFO to correctly 
pass a multiple data bytes from input to output. 
The following sequence is done with various data patterns 
and byte counts from 2 to 64. 

1. Initial FIFO status is checked 

2. The Write FIFO function. 

3. Read Status is executed and FIFO status is checked. 

4. Read FIFO is executed and the data and final status 
is checked, 

TEST STEPS: 



BEGIN 



Write to TSSR to soft initialize 



Do 

Do 
If 
If 
If 
If 
REPEAT 



a WRITE CHARACTERISTICS to setup a message buffer 
a Write Subsystem READ STA T US 



Input Ready 
Output Ready 
Data In Miss 
Last Word 
FOR DATA TO 



REPEAT FOR 
BEGIN 
Do 
Do 

Do 

If 
If 



NOT-1 Then Print Error 
NOT-0 Then Print Error 
NOT-O Then Print Error 
NOT-0 Then Print Error 
377, 377 TO 0, FLOATING 
BYTE COUNT 2 TO 64 DECIMAL 



l'S.O'S AND ALL l'S/O'S 



a Write 
a Write 

a Write 
Input Ready 
Output Ready 



Subsystem WRITE NPR to set tape direction out 
Subsystem WRITE FIFO 
Subsystem READ STATUS 

NOT-1 Then Print Error 

NOT-1 Then Print Error 



TSV5 - HARDWARE 



TEST 6: 



TESTS 



MACRO M1113 



01-FE8-I 
SUBTEST 3t FIFO WRITE MULTIPLE BYTE! 



-tit 



02 



Lll 



SEQ 141 



2549 
2550 
2551 
255? 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 



2562 
2563 
2564 
2565 
2566 
2567 
2568 



2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 



2578 
2579 

2580 
2581 
2582 
2583 
2584 
2585 
2586 
258 7 
2588 
2589 



2590 



041644 
041644 
041644 



041646 
041646 
041652 
041654 
041656 
041656 
041660 
041662 
041664 

041666 
041672 
041676 
041702 
041716 
041720 
041722 
041722 
041722 
041724 
041726 
041730 
041732 
041736 
041736 

041740 
041744 
041750 
041754 
041760 
041774 
041776 
042000 
042000 
042000 
042002 
042004 
042006 
042010 



012704 
004737 

10340V 
010001 



If 
If 
Do 
If 
Do 
If 
If 
If 
If 



Data In Miss NOT-0 Vhe'i Print 
Last Word NOT-0 Then Print 
Write Subsystem READ FI^O 
Data read from FIFO N0 T - to Data 
a Write Subsystem READ STATUS 



Input Ready 
Output Ready 
Data In Miss 
Last Word 



NOT 
NOT 
NOT 
NOT 



Then 

Then 
Then 
Then 



Print 
Print 
Print 
Print 



Error 
Error 

sent Then Print Error 

Error 
Error 
Error 
Error 



END 
END 



J -- 



104402 



0O4737 015604' 

103405 

010001 

104455 
001146 
003646' 
011644' 

00503 7 002222 



5$; 



047740' 
010472' 



104455 

001147 

046565' 

011656' 

005237 002222' 

104406 

004737 047524' 

012704 050110' 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001150 

046466' 
011S56' 
005237 002222' 



104: 



42$: 



62$: 



BGNSUB 



I //////////// BEGIN SUBTEST ////////// 

T6.3: 

TRAP C$BSUB 



Write to TSSR register to soft initialize the controller 



JSR FC.SOFINIT 

BCS 104 

MOV R0.R1 

ERROF ERRNO , SFIERR ( SF IMSG 



Do a WRITE CHARACTERISTICS to se 

CLR FATFLG 

MOV 0T17PACKET.R4 

JSR PC,WRTCHR 

FORCERROR 42* 

8CS 50$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO , T17SSR ,PKTSSR 



j WRITE TO TSSR TO SOFT INITIALIZE 

j BR IF SOFT INIT OKAY 

; SAVE CONTENTS OF TSSR 

j DEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

tup a message buffer 

j CLEAR FATAL ERROR FLAG 

j GET THE ADDRESS OF COMMAND PACKET 

jDO WRITE CHARACTERISTICS COMMAND 

iWSDFORCE ERROR IF FORCER* 1 

jBR IF CARRY SET (GOOD RETURN) 

iSAVE CONTENTS OF TSSR 



CJERDF 
614 

SFIERR 
SFIMSG 



50$: 


INC FATFLG 
CKLOOP 


I 


Do a Write Subsystem 
JSR PC.T17SRD 
MOV OT17PK2.R4 
MOV R4.TSDBCR5) 
JSR PC>CHKTSSR 



READ STATUS 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
,WC«D 
.WORD 
; SET FATAL ERROR FLAC'i 
{LOOP ON ERROR, IF FLAG SET 

TRAP 



C$EHDF 
615 

T17SSR 
PKTSSR 



CJCLP1 



FORCERROR 62$ 

BCS 70$ 

MOV R0,R1 

NEXT. ERRNO 

ERRDF ERRNO, T173SSR, PKTSSR 



k SETUP PACKET FOR READ STATUS 
:GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

;SSOF0RC£ ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 



I SAVE 



CONTENTS 



OF 



j DEVICE FATAL SSR 



INC 



FATFLG 



I SET FATAL ERROR FLAG 



TSSR 

FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 

616 

T173SSR 

PKTSSR 



Mil 



TSV5 - HARDWARE 
TEST 6; SUBTEST 



TEST 



xfoWeTOip^^e? 4 



T& 



02 



SEQ 142 



2591 

2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2G04 
2605 
2606 
2607 
2> 06 
2609 
2610 
2S11 
2612 
2613 



2614 

2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 



2637 



042014 
042014 

042016 
042022 
042026 
042032 
042034 
042036 
042042 
042046 
042052 



042056 
042060 
042064 
042070 
042074 
04210C 
042110 
042112 
042112 
042112 
042114 
042116 
042120 
042122 
042122 



042124 
042132 
042132 
042140 

042140 
042144 
042150 
042154 
042160 
042164 
042200 
042202 
042204 
042204 
042204 
042206 
042210 
042212 
042214 



104406 

004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 
042711 



047706' 
046142' 
050002' 



000020 
000040 
000200 
000100 



005000 

012701 047762' 

012702 046122' 

012703 000024 
004737 011310' 

103404 



104456 
001151 
046705' 
012160' 

104406 



70$ j 

\ 



82$; 



90$: 



CKLOOP ; 

Set WORDS 0-7 of expd message buf 

JSR PC.T17SETEXP , 

MOV 0T17EXSTA t Rl t 

MOV 0T17BFSTA.R2 i 

MOV (R2)*,(Rn* i 

MOV CR2),(R1) i 

BIS 0S2.INRDY.CR1) , 

BIC OS2.0UTRDY.CR1) , 

BIC 0S2.DIM.CR1) i 

BIC 0S2.ILW,(R1) ; 
If Input Ready NOT-1 then Print E 

If Output Ready NOT-0 or Data in 
If Last Word NOT-0 Then Prin 

CLR RO j 

MOV 0T17BFR,R1 { 

MOV 0T17EXP.R2 } 

MOV 020,, R3 { 

JSR PC.CKMSG2 { 

FORCERROR 62$,N0TSSR ; 

BCS 90$ j 
NEXT.ERRNO 

ERRHRD ERRN0,T171CMP,MSGSTAT ; 



LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
fer ■ to recv since not testing 
SET WORDS 0-7 EXPO-RECV 
GET EXPECTEO REAO STATUS 
GET RECV READ STATUS 
SET EXPD WORD 08 - RECV TEMP 
SET EXPD WORD 09 - RECV TEMP 
SET EXP INPUT READY- 1 
SET EXP OUTPUT READY- 
SET EXP DATA IN MISS - 
SET EXP LAST WORD CILW)-0 
rror 

Miss NOT-0 'hen Print Er»ror 
t Error 

HIGH RE°V ADDRESS FOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
EXPD ADDRESS 

NUMBER OF BYTES TO COMPARE 
EXPD EQUAL RECV? 
OSD 
BR IF YES 



CKLOOP 



REPORT ERROR 



{LOOP ON ERROR. 



TRAP 
.WORD 
.WORD 
.WORD 
IF FLAG SET 
TRAP 



CtERHRD 

617 

T1*"1CMP 

MSGSTAT 

C$CLP1 



; REPEAT FOR 
i TSTFLAG -1 
J -2 



012737 000001 002314' 
012737 000002 002310* 



0.12700 
004737 
012704 
010465 
004/37 

103407 
010001 



OOOIOO 

047566' 

050110' 

000000 

0161.46' 



95$: 
100$ 

{ 



MOV 

MOV 



BYTE COUNT 2 TO 64 DECIMAL 
FOR INCREMENT TEST PATTERN 
FOR DECREMENT TEST PATTERN 
FOR TSTBLK TABLE PATTERN 
01, TSTFLAG 



I TEST PATTERN FLAG 



02, COUNT 



104455 

001152 

046533' 

011656' 

005237 002222' 



102$ 



Do a Write Subsystem WRITE NPR 

MOV ONP.OUT.RO 

JSR PC.T175NPR 

MOV 0U7PK2>R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 102$ 

BCS 105$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T174SSR.PKTSSR 



jGET FIRST BYTE COUNT 

to set tape direction out 
iSET TAPE DIRECTION OUT 
{SETUP T17PK2 FOR WRITE NPR 
jGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER-1 
,BR IF CARRY SET I GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 



FATFLG 



{SET FATAL ERROR FLAG 



.WORD 

.WORD 
.WORD 



C$ERDF 
618 

T174SSR 
PKTSSR 



Nil 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST 6; SUBTEST 3; FIFO WRITE MULTIPLE BYTES TEST 



SbQ 143 



2638 

2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 



2675 
2676 

2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 



042220 
042220 

042222 
042226 
042232 
042236 
042244 
042246 
042250 
042252 
042254 
042256 
042260 
042266 
042270 
042274 
042276 
042300 
042302 
042304 
042312 
042314 
042320 
042322 
042324 
042326 
042326 
042332 
042336 
042342 
042346 
042352 
042356 
042372 
042374 
042376 
042376 
042376 
042400 
042402 
042404 
042406 
042412 
042412 



042414 
042420 
042424 
042430 
042434 
042450 
042452 
042454 
042454 
042454 



104406 

004737 
012701 
013702 
022737 
001005 
005000 
110021 
005200 
005302 
003374 
022737 
001006 
012700 
110021 
005300 
005302 
003374 
022737 
001005 
012700 
112021 
005302 
003375 

013700 
012701 
004737 
012704 
010465 
004737 

103407 
010001 



105$ 



CKLOOP 



tLOOP ON ERROR, IF FLAG 



047666' 
046244' 
002310' 
000001 002314' 



110$ 



103407 

ciooo: 



104455 



000002 002314" 115$ t 

000377 

120$: 

000003 002314' 125$: 

002752' 

130$: 



002310' 

046244' 

047612' 

050110' 

000^00 

016146' 



135$: 



Write Subsystem WRITE FIFO 
PC.T17CLEXP 
0T17WFDATA.R1 
COUNT, R2 
Ol.TSTFLAG 
115$ 
RO 

RO.CRD* 
RO 
R2 
110$ 

02.TSTFLAG 
125$ 
$377, RO 
R0,(R1)+ 
RO 
R2 
120$ 

M.TSTFLAG 
135$ 

OTSTBLK.RO 
CRO)*,(Rl)t 
R2 
130$ 

COUNT. RO 

0T17WFDATA.R1 

PC.T17UFIF 

M17PK2.P4 

R4.TSDBCP5) 

PC. CMKTSSR 



104455 

001153 

046576' 

011656' 

005237 002222' 

104406 



004737 047524' 

012704 050110' 

010465 000000 

004737 016146' 



142$ 



SET 
TRAP 



C$CLP1 



150$ 



157$: 



INC 


FATFLG 




CKLOOP 








Do a Wr 


ite 


Subsystem 


READ ST 


JSR 


PC 


T17SR0 




MOV 


or 


.7PK2.R4 




MOV 


R4 


TSDBCR5) 




JSR 


PC 


CHKTSSR 




FORCERROR 


157$ 




BCS 


160$ 




MOV 


RO 


Rl 




NEXT.ERRNO 






ERRDF 


ERRN0.TW3SSB 


.PKTSSR 



{CLEAR EXPD BUFFER 

i EXPO WRITE FIFO DATA BUFFER 

j TEST PATTERN SIZE 

i INCREMENT PATTERN THIS TIME THRU? 

I BR IF NO 

{INCREMENT TEST PATTERN 

, STORE INCREMENT TEST BYTE 

{SET NEXT PATTERN 

tOONE? 

jBR IF NO 

j DECREMENT PATTERN THIS TIME THRU? 

iBR IF NO 

{DECREMENT TEST PATTERN 

j STORE DECREMENT TEST BYTE 

{SET NEXT PATTERN 

{DONE? 

j BR IF NO 

jTSTBLK PATTERNS THIS TIME THRU? 

{BR IF NO 

{FLOAT l'S/O'S ETC. TEST TABLE 

{STORE A TSTBLK BYTE 

{DONE? 

{BR IF NO 

{FIFO BYTE COUNT 

{FIFO WRITE DATA ADDRESS 

{SETUP T17PK2 FOR WRITE FIFO 

{GET WRITE SUBSYSTEM COMMAND PACKET 

{SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

{QQDFORCE ERROR IF FORCER-1 
;BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAF 
.WORD 
.WORD 
.WORD 



;SET FATAL ERROR FLAG 
{LOOP ON ERROR. IF FLAG 



SET 
TRAP 



C$ERDF 
619 

T175SSR 
PKTSSR 



C$CLP1 



{SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WATT FOR SSR TO SET 

jaSOFORCE ERROR IF FORCER -1 
{ BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 



B12 



TSV^ - HARDWARE 


TESTS 


MACRO M 


TEST 6: 


SUBTEST 3j FIFO WRITE 




042456 


001154 






042460 


046466* 






042462 


011656' 




2688 


042464 


005237 


002222* 


2689 


0424 70 








042470 


104406 




2690 








2691 








2692 


0424 72 


004737 


047706' 


2693 


042476 


012701 


046142' 


2694 


042502 


012702 


050002' 


2695 


042506 


012221 




2696 


042510 


011211 




2697 


042512 


052711 


000020 


2698 


042516 


052711 


000040 


2699 


042522 


042711 


000200 


2700 


042526 


042711 


000100 


2701 








2702 








2703 


042 c ,32 


ootsooo 




2704 


042534 


012701 


047762* 


2705 


042540 


012702 


046122' 


2706 


042544 


012703 


000024 


2707 


042550 


004737 


011310* 


2 708 


042554 






2709 


042564 


103404 




2710 


042566 






2711 


042566 








042566 


104456 






042570 


001155 






042572 


047063* 






042574 


012160' 




271? 


04 2!. 76 








042576 


104406 




2713 








2714 








2715 


042600 


013700 


002310' 


2716 


042604 


004737 


047646' 


2717 


042610 


012704 


050110' 


2718 


042614 


010465 


000000 


2719 


042620 


004737 


016146' 


2720 


042624 






2721 


042640 


103407 




2722 


042642 


010001 




2723 


042644 






2724 


042644 








042644 


104455 






042646 


001156 






042650 


046642' 






042652 


011656' 




2 725 


042654 


005237 


002222' 


2726 


042660 








042660 


104406 




2 7^'/ 








272S 








2 729 


042662 


005000 




273Q 


Q42&64 


Q12702 


046244 « 



M1113 01-FEB-84 17:02 
MULTIPLE BYTES TEST 



1*01 1 



162$} 



I72*t 



180 f j 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



SEQ 144 



620 

T173SSR 
PKTSSR 



CICLPl 



S«t WORDS 0-7 of •xpd m«9«ao« buffer 

JSET 



JSR PC.T17SETEXP 

MOV #T17EXSTA,R1 

MOV #T17BFSTA,R2 

MOV (R£)»,(R1)» 

MOV (R2).(R1) 

BIS #S2.INRDY,CR1) 

BIS #S2.0UTRDY,(R1) 

BIC #S2,DIM $ (R1) 

BIC #S2.ILW.(R1) 

If Input R«»<*y l-.OT-l t>>*n 



iGET 
iGET 
iGET 
iSET 
■SET 
iSET 
iSET 
ISET 
Print Error 



■ to rtcv mine* not t««t!ng 

WOROS 0-7 EXPO-RECV 

EXPECTED READ STATUS 

RECV READ STATUS 

EXPO WORD 08 - RECV TEMP 

EXPO WORD 09 • RECV TEMP 

EXP INPUT REAOY- 1 

EXP OUTPUT REAOY- 1 

EXP DATA IN MISS - 

EXP LAST WORD (ILW)-O 



If Output R«edy NOW or Data 

CLR RO 

MOV #T17BFR t Rl 

MOV #T17EXP,R2 

MOV #20., R3 

JSR PC.CKMSG2 

FORCERROR 1621 ,N0T5SR 

BCS 1701 

NEXT, ERRNO 

ERRHRD ERRNO. T173CMP.M5GSTAT 



In Mi»» NOT-O Th«n Print Error 
i HIGH RECV ADOOESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG2 
I EXPO ADORFSS 

iNUMBER OF BYTES TO COMPARE 
lEXPD EQUAL RECV? 
1060 
jBR IF YFS 



170$ t CKLOOP 



I REPORT ERROR 



jLOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORO 

.WORD 

SET 

TRAP 



CIERHRD 
621 

T173CMP 
MSGSTAT 

CICLP1 



Do Writ* Sub«y»t«m READ FIFO 



MOV 


COUNT ,R0 


JSR 


PC.T17RFIF 


MOV 


♦T17PK2.R4 


MOV 


R4 $ TSDB(R5; 


JSR 


FC.CHKTSSR 


FORCFRROR 1721 


BCS 


1801 


MOV 


R0.R1 


NEXT. 


ERRNO 


ERRDF 


ERRNO, T176SSR.PKTSSR 



iSET READ BYTE COUNT 

jSETUP T17PK2 FOR READ FIFO 

iGET WRITE SUBSYSTEM COMMAND PACKET 

I SET THE PACKET ADDRESS TC EXECUTE 

IWAIT FOR SSR TO SET 

,8fiOF0RCE ERROR IF FnPCER-1 
,BR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



INC 
CKLOOP 



If DttU 

CLR 

MOV 



FATFLG 



rrnrnd from FIFO NOT* 
RO 

*U7WFQATA,H2 



jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORO 
.WORD 



l SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIERDF 
622 

T176SSR 
PKTSSR 



CICLPl 



to D»t» *«nt Thtn Print Error 

i HIGH REC< AOORESS FOR CKMSG2 
|G£T EXPECTED ADDRESS FOR 



CKMSGO 



m *rm^vhFomwttihpmm*ikh 02 



C12 



SEO 145 



2731 


042670 


012701 


050002' 


2752 


042674 


013703 


002310* 


2 7 33 


042700 


004737 


011310' 


2734 


042704 






2735 


042714 


103406 




2736 


042716 






2737 


042/16 


013701 


002310* 


2738 


042722 








042722 


104456 






042724 


001157 






042726 


047232' 






042730 


012000' 




2739 


042732 








042732 


104406 




2740 








2741 








2742 


042734 


0O4737 


047524- 


2743 


042740 


012704 


050UC- 


2744 


042744 


010465 


000000 


2745 


042750 


004737 


016146' 


2 746 


042754 






2747 


042770 


103407 




2748 


042772 


010001 




2749 


042774 






2 /SO 


042774 








042774 


104455 






042776 


001160 






cmooo 


046466' 






043002 


011656' 




2751 


043004 


005237 


002222' 


2752 


O4 301C 








043010 


104406 




2753 








2754 


043012 


004 7A7 


047706' 


2755 


043016 


012701 


046142' 


2756 


043022 


012702 


05OOO2' 


2757 


043026 


012221 




2758 


043030 


011211 




2759 


043052 


052711 


000020 


2760 


043036 


0427U 


000040 


2761 


O4 3042 


042711 


000200 


2762 


043046 


042711 


000100 


2763 








2764 








2 765 


043052 


005O00 




2/66 


043054 


012701 


047762' 


2767 


043060 


012702 


046122' 


2768 


043064 


012703 


000024 


2769 


043070 


004737 


011310* 


2 HO 


O4S074 






2771 


O4310* 


103404 




?112 


043106 






2/75 


0451.06 








043106 


104456 






O43110 


001161 






045112 


047147' 






043114 


012160 1 





192$: 



MOV *T17BFSTA,R1 

MOV COUNT, R3 

JSR PC\CKMSG2 

FORCERROR 1921 ,NOTSSR 

BCS 200$ 

NEXT.ERRNO 

MOV COUNT, Rl 

ERRHRD ERRNO.T175CMP.FIFEXP 



iGET RECEIVEO ADDRESS FOR CKM5G2 

iNUMBER OF BYTES TO COMPARE 

»EXPD EQUAL RECV? 

lOfiO 

iBR ir YES 



iGET BYTE COUNT 
j REPORT ERROR 



200$ j CKLOOP 



I LOOP ON ERROR. IF FLAG 



TRAP 
.WORD 

.WORD 
.WORD 
SET 
TRAP 



C$EMHRO 
623 

T175CMP 
FIKEXP 

C$CLP1 



Do s 


Writs 


Subsystsm 
T17S&D 


JSR 


PC 


MOV 


♦T17PK2.R4 


MOV 


R4 


TS06(R5) 


JSR 


PC 


CHKTSSR 


FORCERROR 


212$ 


BCS 


220$ 


MOV 


RO 


Rl 


NEXT 


.ERRNO 





READ STATUS 



212$j ERRDF ERRNO, U73SSR.PKTSSR 





INC 


FATFLG 


220 ${ 


CKLOOP 




1 


Sst WORDS 0-7 of s*pd m«i»ao* 




JSR 


PC.T17SETEXP 




MOV 


♦T17EXSTA.R1 




MOV 


♦T17BFSTA.R2 




MOV 


CR2)» a (Rl)» 




MOV 


(R2),(Ri) 




BIS 


♦S2.INR0Y,(R1) 




BIC 


♦S2.0UTR0Y,CR1) 




BIC 


*S2.DIM # (R1) 




BIC 


♦S2.ILW,(R1) 


I 


If Input Rssdy NOT-1 thsn Pri 


I 


If Output Rssdy NOT-0 or Data 




CLR 


RO 




MOV 


0T17BFR.R1 




MOV 


♦T1/EXP.R2 




MOV 


•20. ,R3 




JSR 


PC.CKMSG2 




FORCERROR 232$ .NOTSSR 




BCS 


240$ 




NEXT, ERRNO 


232$: 


ERRHRD 


ERRNO. U74CMP.MSGSTAT 



iSETUP PACKET FOR REAO STATUS 
jGtT WRITE SUBSYSTEM COWHAND PACKET 
»SET THE PACKET ADORESS TO FXECUTE 
iWAIT FOR SSR TO SET 

iMDFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



jOEVICE FATAL SSR 



j SET FATAL ERROR FLAG 
i LOOP ON ERROR. IF FLAG 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


624 


.WORD 


T173SSR 


.WORD 


PKTSSR 



buf fsr 
iSET 
iGET 
I GET 
»SET 
JSET 
iSET 
I SET 
iSET 
iSET 
it Error 
i A M!ss 
jHIGH 



SET 
TRAP 

• to rscv sines not tsiting 

WORDS A. 7 EX?0-PiCV 

EXPr.CTEO REAO STATUS 

RECV REAO STATUS 

EXPD WORD #8 • RECV 

EXPO WORO #9 - RECV 

EXP I^UT READY- 1 
OUTPUT READY- 
DATA IN MISS • 
LAST WORD (ILW)-O 



C$CLPl 



TEMP 
TEMP 



EXP 
EXP 
EXP 



NOT*0 Th*n Print Error 
RECV ADORESS FOR CKMSG2 



jLOW RECV ADORESS FOR CKMSG2 

I EXPD ADDRESS 

(N^JMBER OF BYTES TO COMPARE 

lEXPD EQUAL RECV? 

i860 

iBR IF YES 



iREPQRT ERROR 



TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 

625 

Tl MCMP 

MSUSTAT 



TSV5 - HARDWARE TESTS MACRO M1U3 Ol-FEB-84 17:0? 
TEST 6: SUBTEST 3s FIFO WRITE MULTIPLE BYTES TEST 



D12 



2774 

2775 

2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 



2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 



2815 
2816 
2817 
2818 
2819 
2820 
2821 



043116 
043116 
043120 
043130 
043134 
043142 
043144 
043150 
043154 
043162 
043164 
043170 
043170 
043170 
043170 

043172 
043176 
043200 
043204 



043204 
043204 
043204 



043206 
043206 
043212 
043214 

043216 
043216 
04 3220 
043222 
043224 



104406 

005237 002310' 

023727 C02310' 000077 

101002 

000137 042140' 

005237 002314' 

023727 002314' 000003 

101002 

000137 042132' 



104403 

005737 002222' 

001402 

004737 017014 



240$; CKLOOP 



250*! 



255$ 



FORCEXIT 25 


INC 


COUNT 


CMP 


COUNT, 077 


BHI 


250$ 


JMP 


100$ 


INC 


TSTFLAG 


CMP 


TSTFLAG.03 


BHI 


255$ 


JMP 


95$ 



EN0SU6 



260$ 



TST 


FATFLG 


BEQ 


260$ 


JSR 


PC.CKDROP 



SEQ 146 



jLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

i BOO 

jGEf NEXT BYTE COUNT 
»DONE TO 77 
»BR IF YES 

jDO ANOTHER BYTE COUNT 
iGET NEXT TEST PATTERN CODE 
jOONE INC.OEC.TSTBLK PATTERNS? 
I BR IF YES 
j DO ANOTHER TEST PATTERN 

I //////////// ENO SUBTEST ////////// 

L 10061 j 

TRAP C$ESUB 

jANY FATAL ERRORS ? 

i BRANCH IF NOT 

jTRY TO DROP THE UNIT 



.SBTVL TEST 6: SUBTEST 4t FIFO Verify ILW Status 



TEST 6: SUBTEST 4t 

SUBTEST DESCRIPTION: 

This subtest verifies that reading the FIFO when It is 
empty causes the Last Word CILW) status to assert, 

TEST STEPS: 

BEGIN 

Write to TSSR to soft initialize 

Do Writs Subsystem READ FIFO with byte count equal to 1 

Do a Write Subsystem READ STATUS 

If Input Ready NOT-1 Then Print Error 

If Output Ready NOT-0 Then Print Error 

If Data In Miss NOT-0 Then Print Error 

If Last Word CILW) NOT-1 Then Print Error 



END 



BGNSUB 



104402 



004 737 
103405 
010001 

104455 
001161 
003646' 
011644' 



\//////////// BEGIN SUBTEST ////////// 

T6.4: 

TRAP C$BSUB 



015604 



I 
5$ 



Write to TSSR register to soft initialize the controller 



JSR PC.SOFINIT 

BCS 10$ 

HOV RO.Rl 

ERRDF ERRNO , SFIERR , SF IMSG 



jWRITE TO TSSR TO SOFT INITIALIZE 

iBR IF SOFT INIT 0KA> 

»SAVE CONTENTS OF TSSR 

jDEVICE FATAL DURING INIT 

TRAP CtERDF 
.WORD 625 
.WORD SFIERR 
.WORD SFIMSG 



E12 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 6: SUBTEST 4: FIFO VERIFY ILW STATUS 



SEQ 147 



2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 



2831 
2832 

2833 
283 4 
2825 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 



2845 
2846 

2847 
2848 
2549 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 



2858 
2859 

2860 
2861 
2862 
2863 



043226 
043232 
043236 
043242 
043256 
043260 
043262 
043262 
043262 
043264 
043266 
043270 
043272 
043276 
043276 



043300 
043304 
043310 
043314 
043320 
043324 
043340 
043342 
043344 
043344 
043344 
043346 
043350 
043352 
043354 
043360 
043360 



043362 
043366 
043372 
043376 
043402 
043416 
043420 
043422 
043422 
043422 
043424 
043426 
043430 
043432 
043436 
043436 

043440 
043444 

043450 



005037 002222' 
012704 047740* 
004737 010472' 

103407 
010001 



104455 
001162 
046365' 

011656* 
005237 



\ 

10$: 



42*: 



Do a WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV *T17PACKET,R4 

JSR PC.WRTCHR 

FORCERROR 42* 

BC5 50$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO ♦ T17SSR .PKTSSR 



setup a message buffer 
I CLEAR FATAL ERROR FLAG 
i GET THE ADDRESS OF COMMAND PACKET 
I DO WRITE CHARACTERISTICS COMMAND 

lOSOFORCE ERROR IF FORCER" 1 
iBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 



002222' 



000001 

047646' 

050110' 

000000 
016146* 



104406 



012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001163 
046642' 
011656* 
005237 002222 

104406 



004737 047524 

012704 050110 

010465 000000 

004737 016146 

103407 
010001 



104455 

001164 

04^466* 

011656' 

005237 002222' 

104406 

004737 047706' 

012701 046142' 

012702 050002' 



50$: 



INC 
CKLOOP 



FATFLG 



TRAP 


C$ERDF 


.WORD 


626 


.WORD 


U7SSR 


.WORD 


PKTSSR 


,SET FATAL ERROR FLAG 




lLOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 



142$: 



Do Write Subsystem READ FIFO 

MOV tl.RO 

JSR PC.T17RFIF 

MOV *T17PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 142$ 

BCS 150$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO, T176SSR.PKTSSR 



with byte count equal to 1 
I SET READ BYTE COUNT 
j SETUP U7PK2 FOR READ FIFO 
»GET WRITE SUBSYSTEM COMMAND PACKFT 
» SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iMDFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 



150$: 



INC 
CKLOOP 



FATFLG 



TRAP 


C*ERDF 


.WORD 


627 


.WORD 


T176SSR 


.WORD 


PKTSSR 



j SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG SET 

TRAP 



C$CLP1 



Do a 

JSR 
MOV 
MOV 
JSR 



Write Subsystem READ STATUS 



162$: 



PC.T17SRD 

*T17PK2,R4 

R4,TSD8(R5) 

PCCHKTSSR 
FORCERROR 162$ 

BCS 170$ 

MOV »40,R1 

NEXT.ERRNO 
ERRDF ERRNO, T173SSR, PKTSSR 



170$: 



INC 
CKLOOP 



FATFLG 



I SETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMANO PACKET 
»SET THE PACKET ADORESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER- 1 
jBR IF CARRY SET CGOOO RETURN) 
j SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP CiERDF 

.WORD 628 
.WORD T173SSR 
.WORD PKTSSR 

i SET FATAL ERROR FLAG 

jLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



Set WORDS 0-7 of expo* me99age buffer • to recv sines not testing 

JSR PC.T17SETEXP jSET WORDS 0-7 EXPD-RECV 

MOV 0T17EXSTA.R1 iGET EXPECTED KEAD STATUS 

MOV *T17BFSTA,R2 iGET RECV READ STATUS 



TGV5 - HARDWARE TESTS 
TEST 



Fl 






- - MACRO M1113 Ql-FEB-84 17:02 

6: SUBTEST 4: FIFO VERIFY ILW STATUS 



SEQ 148 



2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2875 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 



2882 

2883 
2884 



2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 



043454 
043456 
043460 
043464 
043470 
043474 



043500 
043502 
043506 
04 '512 
04^516 
043522 
043532 
043534 
043534 
043534 
043536 
043540 
043542 
043544 
043544 

043546 
043546 
043546 

043550 
043554 
043556 
043562 



012221 
011211 
05271 1 
042711 



000020 
000040 



042711 000200 
0527.1! 000100 



005000 

01270;- V.7f2' 

0127;; ' Vj. 'i-r 

0127c- U00024 

00473/ 0U310 1 

103404 



104456 
001165 

047306' 
012160' 

104406 



104403 

005737 002222' 

001402 

004737 017014' 



MOV 
MOV 
BIS 
BIC 
BIC 
BIS 



(R2)*.(R1)* 

CR2MR1) 

*S2.INRDY,CR1) 

*S2.0UTRDY,(R1) 

0S2.DIM.CRl) 

*S2.ILW,CR1) 



172$: 



If Input Ready NOT-1 then Prin 

If Output Ready NOT-0 or Data 

If Last Uord (ILW) NOW Then 

CLR RO 

MOV *T17BFR,R1 

MOV 0T17EXP.R2 

MOV 020., R3 

JSR PC.CKMSG2 

FORCERROR 172$,N0TSSSH 

BCS 180$ 

NEXT.ERRNO 

ERRHRD ERRNO , T 1 76CMP , MSGSTAT 



EXPO WORD 08 - RECV 
EXPD WORD 09 - RECV 
EXP INPUT READY- 1 
OUTPUT READY- 
DATA IN MISS - 
LAST WORD (ILW)-l 



TEMP 
TEMP 



EXP 
EXP 
EXP 



»SET 

iSET 

iSET 

jSET 

j SET 

iSET 

Error 

In Miee NOT-0 Than Print Error 
Print Error 

I HIGH RECV AODRESS FOR CKMSG2 

j LOW RECV ADORESS FOR CKMSG2 

j EXPD ADDRESS 

iNUMBER OF BYTES TO COMPARE 

I EXPD EQUAL RECV? 

1 800 

jBR IF YES 



180*: CKLOOP 



ENDSUB 



j REPORT ERROR 



j LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



CiERHRD 
629 

T176CMP 
MSGSTAT 

CICLP1 



260$: 



TST 
BEQ 
JSR 



FATFLG 

260$ 

PC.CKDROP 



\//////////// END SUBTEST ////////// 

L 10062: 

TRAP C$ESUB 

j ANY FATAL ERRORS ? 

j BRANCH IF NOT 

jTRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 5? FIFO Verify Input Ready 



¥ ♦ 



TEST 6: SUBTEST 5: 

SUBTEST DESCRIPTION: 

This subtest verifies that writing 64. bytes into the FIFO 
without reading any out caueee the Input Ready status to 
negate. The Subteet then verfiies that writing a 65th byte 
inco the FIFO causee the Data In Mian status to asaert. 
Next it is verified that the original 64 bytes can be read 
out correctly and that the data has not been corrupted, 

TEST STEPS: 



BEGIN 



Write to TSSR to aoft initialize 

Do a WRITE CHARACTERISTICS to satup a message buffer 

Do a Write Subsystem WRITE NPR to aet tape d»r«ct!on out 

Do a Write Subsystem WRITE FIFO 64, bytea incrementing pattern 

Do a Write Subsystem READ STATUS 

If Input Ready NOT-0 Than Print Error 
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TSV5 - HARDWARE TESTS MACRO MU13 Ol-FEB-84 17:02 
TEST 6: SUBTEST 5; FIFO VERIFY INPUT READY 



SEQ 149 



2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 



2930 
2931 
2932 
2933 
2934 
2935 
2936 



2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 



2946 

2947 

2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 



043562 
043562 
043562 



043564 
043564 
043570 
043572 
043574 
043574 
043576 
043600 
043602 

043604 
043610 
043614 
043620 
043634 
043636 
043640 
043640 
043640 
043642 
043644 
043646 
043650 
043654 
043654 



043656 
043662 
043666 

043672 
043676 
043702 
043716 
043720 
043722 
043722 



ENO 



104402 



004737 015604' 

103405 

010001 

104455 
001165 
003646' 
011644' 

005037 002222' 
012704 047740' 
004737 010472' 

103407 
010001 



104455 
001166 
046365' 
011656' 
005237 002222 

104406 



012700 000100 

004737 047566 

012704 050110 

010465 000000 

004737 016146 

103407 
010001 



5$: 



10$: 



42*: 



50$: 



100$: 



If 
If 
Do 
Do 
If 
If 
If 
Do 
If 
Do 
If 
If 
If 



Output Ready NOT-l Then Print Error 
Data In Mis* NOT-O Then Print Error 
a Writ* Subsystem WRITE FIFO 1 byt* for 



a Writ* Subsystem READ STATUS 
Input Reedy NOT-O Than Print 
Output Raady NOT-l Than Print 
Data In Mis* NOT-l Th*n Print 
Writ* Subsystem READ FIFO 
Data read fro* FIFO NOT- to Data 
a Writa Subsystem READ STATUS 
Input R*ady NOT-l Than Print 
Output Reedy NOT-O Than Print 
Data In Miss NOT-l Than Print 



a total of 65. written 



Error 
Error 
Error 

sant Then Print Error 

Error 
Error 
Error 



BGNSUB 



;//////////// BEGIN SUBTEST ////////// 

T6.5: 

TRAP CiBSUB 



Wrlta to TSSR register to soft initialize the controller 
JSR PCSOFINIT iWRITE TO TSSR TO SOFT I 



JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO, SFIERR , SFIMSG 



Do a WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV *T17PACKET.R4 

JSR PC.WRTCHR 

TORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T 17SSR , PK TSSR 



jWRITE TO TSSR TO SOFT INITIALIZE 

{BR IF SOFT INIT OKAY 

j SAVE CONTENTS OF TSSR 

{DEVICE FATAL DICING INIT 

TRAP 
♦ WORD 
.WORD 
.WORD 
setup e meseaoe buffer 

j CLEAR FATAL FRROR FLAG 

iGET THE ADDRESS OF COMMAND PACKET 

jDO WRITE CHARACTERISTICS COMMAND 

jMDFORCE ERROR IF FORCER-1 

iBR IF CARRY SET (GOOO RETURN) 

I SAVE CONTENTS OF TSSR 



C$EROF 
629 
SFIERR 
SFIMSG 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILEO TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
j SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG SET 

TRAP 



C$ERDF 
630 
T17SSR 
PKTSSR 



C$CLP1 



102$: 



Do a Write Subayetem WRITE NPR 

MOV *ftf\OUT # RO 

JSR PC.T17SNPR 

MOV *T17PK2,R4 

MOV R4,TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 102$ 

BCS 105$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO. T174SSR, PKTSSR 



to *et tape direction out 
{SET TAPE DIRECTION OUT 
{SETUP T17PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

lOQOFORCE ERROR IF FORCER «1 
jBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 
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TSV5 - HARDWARE TESTS 
TEST 6; SUBTEST 5j 



MACRO Mil 13 01 K . 
FIFO VERIFY INPUT READY 



01-FEB-84 17:02 



SEQ 150 



2960 
2961 

2962 
296$ 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 



2983 
2984 

2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 



2999 
3000 

3001 



043722 
043724 
043726 
043730 
043732 
043736 
043736 



043740 
043746 
043752 
043756 
043760 
043762 
043764 
043766 
043770 
043774 

0*4000 
044004 
044010 
044014 
044020 
044054 
044036 
044040 
044040 
044040 
044042 
044044 
044046 
044050 
044054 
044054 



044056 
044062 
044066 
044072 
044076 
044112 
044114 
044116 
044116 
044116 
044120 
044122 
044124 
044126 
044132 
044132 



104455 
001167 
046533' 
011656' 
005237 002222 

104406 



012737 000100 002310' 

012701 046244' 

012702 000100 
005000 
110021 
005200 
005302 
003374 

013700 002310' 
012701 046244' 
004737 047612' 
012704 050110' 
010465 000000 
004737 016146' 

103407 
010001 



104455 

001170 

046576' 

011656' 

005237 002222 

104406 



105$ 



00473V 047524' 

012704 050110' 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001171 
046466 
011656' 

005237 



002222' 



110*: 



142$: 



150$: 



104406 



160$: 

l 



INC 


FATFLG 


CKLOOP 




Do a Wr 


ite Subeyetem WRITE F 


MOV 


♦64., COUNT 


MOV 


♦T17WFDATA.R1 


MOV 


*64. ( R2 


CLR 


RO 


MOVB 


R0.CR1V 


INC 


RO 


DEC 


R2 


BGT 


110$ 


MOV 


COUNT, RO 


MOV 


♦T17WFDATA.R1 


JSR 


PC.T17WFIF 


MOV 


*T17PK2,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


FORCERROR 142$ 


BCS 


150$ 


MOV 


R0,R1 


NEXT.ERRNO 


ERRDF 


ERRN0,T175SSR, PKTSSR 



jSET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



TRAP 
.WORD 
.WORD 
.WORD 

SET 
TRAP 



CIERDF 
631 

T174SSR 
PKTSSR 



C$CLP1 



64, bytes Increment ing pattern 

jWRITE 64 BYTES 

jEXPD WRITE FIFO DATA BUFFER 

,TEST PATTERN SIZE 

I INCREMENT TEST PATTERN 

I STORE INCREMENT TEST BYTE 

{ SET NEXT PATTERN 

{DONE? 

»BR IF NO 

jFIFO BYTE COUNT 

j FIFO WRITE OAT A ADDRESS 

jSETUP T17PK2 FOR WRITE FIFO 

iGET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOH SSR TO SET 

jseoroRCE error i~ forcer* 1 

lER IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
632 

T175SSR 
PKTSSR 



C$CLP1 



Do a Wr>t< Subsystem READ STATUS 



If Input Ready NOT 
If Output Reedy NOT- 
If Data In Miss NOT- 
JSR PCT17SRD 
MOV OT17PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 157$ 
BCS 160$ 
MOV R0,R1 
NEXT.ERRNO 



Then Print Error 

1 Then Print Error 
Then Print Error 

j SETUP PACKET FOR REAO STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
jSET THE PACKET ADDRESS TO EXECUTF 
jWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER «1 
iBR IF CARRY SET (GOOO RETURN) 
{SAVE CONTENTS OF TSSR 



157$: ERRDF ERRNO, T173SSR. PKTSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 



C$ERDF 
633 

T173SSR 
PKTSSR 



Set WORDS 0-7 of expd message buffer 



SET 

TRAP C$CLP1 

to resv since not testing 



112 



TSV5 - HARDWARE 


TESTS 


MACRO M 


TEST 6: 


SUBTEST 5; FIFO VERIFY 


3002 


044134 


004737 


047706' 


3003 


044 14C 


012701 


046142' 


3004 


044144 


012702 


05C002' 


3005 


044150 


012221 




3006 


044152 


011211 




3007 


044154 


042711 


000020 


3008 


044160 


052711 


000040 


3009 


044164 


042711 


000200 


3010 


044170 


005000 




3011 


044172 


012701 


047762' 


3012 


044176 


012702 


046122' 


3013 


044202 


012703 


000024 


3014 


044206 


004737 


011310' 


3015 


044212 






3016 


044222 


103404 




3017 


044224 






3018 


044224 








044224 


104456 






044226 


001172 






044230 


047063' 






044232 


012160' 




3019 


044234 








C14234 


104406 




3020 








3021 








3022 








3023 


044236 


012700 


000001 


3024 


044242 


012701 


046244' 


3025 


044246 


004737 


047612' 


3026 


044252 


012704 


050110' 


3027 


044256 


010465 


000000 


3028 


044262 


004737 


016146' 


3029 


044266 






3030 


044 302 


103407 




3031 


044304 


010001 




3032 


044306 






3033 


044306 








044306 


104455 






044310 


001173 






044312 


046576' 






044314 


011656' 




3034 


044316 


005237 


002222' 


3035 


044322 








044322 


104406 




3036 








3037 








3038 








3039 








3040 








3041 


044324 


004737 


047524' 


3042 


044330 


012704 


050110' 


3043 


044334 


010465 


OOOOOO 


3044 


044340 


004737 


016146' 


3045 


044344 






3046 


044360 


103407 




304 7 


044362 


010001 




3048 


044364 







M1113 01-FEB-84 17:02 
INPUT READY 



se:q i5i 



162* 



170$ 



172$: 



180$: 



JSR 


PC.T17SETEXP 


iSET WORDS 0-7 EXPD-RECV 




MOV 


0T17EXSTA.R1 


jGET EXPECTED READ STATUS 




MOV 


*T17BFSTA,R2 


jGET RECV READ STATUS 




MOV 


CR2)*,CR1)* 


j SET EXPD WORD #8 - RECV TEMP 




MOV 


CR2) # CR1) 


j SET EXPD WORD *9 - RECV TEMP 




BIC 


*S2.INRDY,(P1) 


iSET EXP INPUT READY- 




BIS 


*S2.0UTRDY,(R1) 


j SET EXP OUTPUT READY- 1 




BIC 


*S2,DIM,CR1) 


iSET EXP DATA IN MISS - 




CLR 


RO 


iMIGM RECV ADDRESS FOR CKMSG2 




MOV 


*T17BFR,R1 


1 LOW RECV ADDRESS FOR CKMSG2 




MOV 


*T17EXP,R2 


j EXPD ADDRESS 




MOV 


$20.. R3 


j NUMBER OF BYTES TO COMPARE 




JSR 


PC.CKMSG2 


{EXPD EQUAL RECV? 




FORCERROR 162$ .NOTSSR 


{000 




BCS 


170$ 


{BR IF YES 




NEXT. ERRNO 






ERRHRD 


ERRNO , T173CMP f MSGSTAT 


, REPORT ERROR 








TRAP 


C$ERHRD 






.:<ORD 


634 






.WORD 


T173CMP 






.WORD 


MSGSTAT 


CKLOOP 




j LOOP ON ERROR. IF FLAG SET 





TRAP 



C$CLP1 



Do a Write Subsystem WRITE FIFO 

MOV tl.RO 

MOV *T17WFDATA,R1 

JSR PC.T17WFIF 

MOV *T17DK2,R4 

MOV R4/.SDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 172$ 

BCS 180$ 

MOV R0.R1 

NEXT ERRNQ 

ERRDF ERRNO . T175SSR . PKTSSR 



1 byte for a total of 65. nrltten 

jFlFO BfTE COUNT 

{FIFO WRITE DATA ADORESS 

j SETUP T17PK2 FOR WRITE FIFO 

jGET WRITE SUBSYSTEM COMMAND PACKET 

,SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

tSaOFORCE ERROR IF FORCER -1 
i BR IF CARRY SET CGOOO RETURN) 
j SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



j SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
635 

T175SSR 
PKTSSP 



C$CLP1 



Do a Write Subsystem READ STATUS 
If Input Ready 
If Output Ready 
If Data In Mies 



NOT-0 
NOT- 1 
NOT-1 
JSR PC.T17SRD 

MOV *T17PK2,R4 
MOV R4,TSDB(R5) 
JSR PC.CHKTSSR 



Then 
Then 
Then 



FORCFRROR 
BCS 190$ 

MOV PO.Rl 

NEXT. ERRNO 



187$ 



Print Error 

Print Error 

Print Error 

j SETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iSSOFORCE ERitGr. If FORCER »1 
I BR IF CARRY SET CGOOO RETURN) 
iSAVE CONTENTS OF TSSR 
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TSV5 - HARDWARE TESTS MACRO Mil 13 Oi-FEB-84 17:02 
TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY 



3049 



3050 
3051 

3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 



3070 

3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 



3082 
3083 

3084 
3085 

3086 
3087 
3088 
3089 
3090 



044 364 
044364 
044366 

044370 
044372 
044374 
044400 
04440O 

044402 
044406 
044412 
044416 
044420 
044422 
044426 
044432 
044436 
044440 
044444 
044450 
044454 
044460 
044470 
044472 
044472 
044472 
044474 
044476 
04450O 
044502 
044502 

044504 
044510 
044514 
044520 
044524 
044530 
044544 
044546 
044550 
044550 
044550 
044552 
044554 
044556 
044560 
044564 
044564 



044566 
044570 
044574 
044600 
044604 



104455 

001174 

046466' 

011656' 

005237 002222' 

104406 

004737 047706' 

012701 046142' 

012702 050002' 
012221 
011211 

042711 000020 

052711 000040 

052711 000200 
005000 

012701 047762' 

012702 046122 

012703 000024 
004737 011310' 

103404 



104456 
001175 
047063' 
012160' 

104406 

013700 002310' 

004737 047646 

012704 050110' 

010465 000000 

0O4737 016146 

103407 
010001 



104455 
0O1176 
046642' 
011656' 

005237 002222' 

104406 



187$: ERRDF ERRN0,T173SSR,PKTSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



SEQ 152 



C$ERDF 
636 

T173SSR 
PKTSSR 





INC 


FATFLG 




j SET FATAL ERROR FLAG 




190$: 


CKLOOP 






» LOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


J 


Set WORDS 0-7 of «xpd messaoe 


buffer ■ to recv since not testing 




JSR 


PC.T17SETEXP 




iSET WORDS 0-7 EXPO-RECV 






MOV 


*T17EXSTA,R1 




jGET EXPECTED READ STATUS 






MOV 


*fl79FSTA,R2 




iGET RECV READ STATUS 






MOV 


CR2)*,CR1)» 




tSET EXPO WORD *8 - RECV TEMP 






MOV 


(R2),(R1) 




:SET EXPO WORD 09 - RECV TEMP 






BIC 


*S2.INRDY,(R1) 




»SET EXP INPUT READY- 






BIS 


*S2.0UTRDY.(R1) 




jSET EX" OUTPUT READY- 1 






BIS 


*S2.DIM,CRn 




j SET EXP DATA IN MISS - 1 






CLR 


RO 




iHIGH RECV ADDRESS FOR CKMSG2 






MOV 


♦T17BFR.R1 




t LOW RECV ADDRESS FOR CKMSG2 






MOV 


*T17EXP,R2 




lEXPD ADDRESS 






MOV 


020., R3 




; NUMBER OF BYTES TO COMPARE 






JSR 


PC,CKMSG2 




iEXPD EQUAL RECV? 






FORCERROR 192$,N0TSSR 


tQQO 






ecs 


200$ 




jBR IF YES 






NEXT.ERRNO 








192$: 


ERRHRD 


ERRN0,T173CMP,MSGSTAT 


{REPORT ERROR 












TRAP 


C$ERHRD 










.WORD 


637 










.WORD 


T173CMP 










.WORD 


MSGSTAT 


200$: 


CKLOOP 






j LOOP ON ERROR, IF FLAG SET 

RftP 


C*Cl.P« 


J 


Do Write Subsystem READ 


FIFO 








MOV 


COUNT, RO 




iSET RE<0 :'VV£ CO^JT 






JSR 


PC.T17RFIF 




j SETUP fl7P»0 F;*f.: READ FIFO 






MOV 


♦T17PK2.R4 




iCET UNITE SUBSYSTEM COMMAND PACKET 




MOV 


R4.TSD6CR5) 




» SET Tr* PACKET ADDRESS TO EXECUTE 




JSR 


PC.CHKTSSR 




I MP IT OH SSi» TO SET 






FORCERROR 212$ 




-.fiSOFJRCE ERROR IF FORCER «1 




BCS 


2201 




itiR IF CARRY Tiil CGOOO RETURN) 






MOV 


R0,R1 




l l 5AVi" CUNTL7I'. 5F Tf.SR 






NEXT.ERRNO 








212$: 


ERRDF 


ERRN0,T176SSR, PKTSSR 


rJEVXCE FAr :. ?,SR FAlLhD TO SET 





220$: 



005000 
012702 
032701 
013703 
004737 



046244' 
050002' 

002310' 
011310' 







TRAP 


CI*-" PDF 






.WORD 


<r*s 






.WORD 


T- 76SS^ 






.WORD 


pk rssw 


INC 


FATFLG 


jSET FhMV. W-K-. i-lAG 




CKLOOP 




lLOOP QU EP» ■.".■«, »■-■ rl.AG SET 








TRAP 


-VCLP1 


If Data 


read from FIFO NOT* 


to Data frent fhc > Print Lrror 




CLR 


RO 


iHIGH RECV i.^OK":>- r 0R CKMSS2 




MOV 


OT17UFDATA.R2 


jGET EXPECTLV A>*~-iS FOR CKfo-j 




MOV 


*T17BFSTA,R1 


» GET RECEIVE,; ttb '.*■;: S FOR CKMiC 


1? 


MOV 


COUNT ,R3 


lNUMC-3 0^" B: ITS COMPARE 




JSR 


PC.CKMSG2 


iEXPD rMUA*. liECVV 





K12 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY 



SEQ 153 



3091 


044610 






3092 


044620 


103406 




3093 


044622 






3094 


044622 


013701 


002310' 


3095 


044626 








044626 


104456 






044630 


001177 






044632 


047232' 






044634 


012000' 




3096 


044636 








044636 


104406 




3097 








3098 








3099 








3100 








3101 








3102 


044640 


004737 


047524' 


3103 


044644 


012704 


050110' 


3104 


044650 


010465 


000000 


3105 


044654 


004737 


016146' 


3106 


044660 






3107 


044674 


1034C7 




3108 


044676 


010001 




3109 


044700 






3110 


044700 








044700 


104455 






044702 


001200 






044704 


046466' 






044706 


011656' 




3111 


044710 


005237 


002222" 


3112 


044714 








044714 


104406 




3113 








3114 


044716 


004737 


047706' 


3115 


044722 


012701 


046142' 


3116 


044726 


012702 


050002' 


3117 


044732 


012221 




3118 


044734 


011211 




3119 


044736 


052711 


000020 


3120 


044742 


042711 


000040 


3121 


044746 


052711 


000200 


3122 


044752 


005000 




3123 


044754 


012701 


04/762' 


3124 


044760 


012702 


046122' 


3125 


044764 


012703 


000024 


3126 


044 770 


004737 


011310- 


3127 


044774 






3128 


045004 


103404 




3129 


045006 






3130 


045006 








045006 


104456 






045010 


001201 






045012 


047147' 






045014 


012160' 




3131 


045016 








045016 


104406 




3132 









232$: 



240$ 



260$: 

i 



272$: 



232$,N0TSSR 



FORCERROR 

BCS 240$ 

NEXT. ERRNO 

MOV COUNT, Rl 

ERRHRD ERRNO , T175CMP , FIFEXP 



CKLOOP 



isao 

iBR IF 



YES 



jGET BYTE COUNT 

l REPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

j LOOP ON ERROR, IF FLAG SET 

TRAP 



C$CRHRD 
639 

ri75CMP 
FIFEXP 



TRAP C$CLP1 



Do a Write Subsystem READ STATUS 
If Input Ready 
If Output Ready 
If Data In Miss 



JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 260$ 

MOV R0.R1 

NEXT.ERRNO 



NOT 
NOT- 
NOT- 
PC.T17SRD 
OT17PK2,R4 
R4,TSD6CR5) 
PC.CHKTSSR 

252$ 



Then 
Then 
Then 



Print Error 

Print Error 

Print Error 

j SETUP PACKET FOR READ STATUS 
;GET WRITE SUeSYSTEN COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECU T E 
iWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



252$; ERRDF ERRNO, T173SSR.PKTSSR ;DEVICE FATAL SSR 



INC 

CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
640 

T173SSR 
PKTSSR 



j SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



message 



Set WORDS 0-7 of expd 

JSR PC,T17SETEXf 

MOV «T17F.XSTA,R1 

MOV *T17BFSTA,R2 

MOV (R2)»,(R1)» 

MOV (R2).(R1) 

BIS *S2.1NRDY,(R1) 

BIC *S2.0UTRDY # (R1) 

BIS 0S2.DIM.CR1) 

CLR RO 

MOV 0T17BFR.R1 

MOV *T17EXP,R2 

MOV 020,. R3 

JSR PC.CKMSG2 

FORCERROR 272$ .NOTSSR 

BCS 280$ 

NEXT.ERRNO 

ERRHRD ERRNO , T174CMP , MSGST AT 



buffer 
iSET 
»GET 
{GET 
tSET 
iSET 
I SET 
J SET 
i SET 
jHlGH 



• to recv 
WORDS 7 



s i nc< 
EXPD 



SET 
TRAP 
not testing 
RECV 



C$CLP1 



EXPECTED READ STATUS 
RECV READ STATUS 
EXPD UORD *8 - RECV TEMP 
EXPD WORD *9 - RECV TEMP 
EXP INPUT READY ° 1 
EXP OUTPUT READY- 
EXP DATA IN MISS • 1 
RECV ADDRESS FOR CKMSG2 



j LOW RECV ADDRESS FOR CKMSG2 
» EXPD ADDRESS 

j NUMBER OF BYTES TO COMPARE 
• EXPO EQUAL RECV? 

iBR IF YES 



280$: CKLOOP 



l REPORT ERROR 



{LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

. WORD 

SET 

TRAP 



CiERHRO 

641 

T 174 CMP 

MSGSTAT 

C$CLP1 



L12 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 6: SUBTEST 5: FIFO VERIFY INPUT 



01 FEB -84 17 j 02 



SEQ 154 



3133 



3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3.171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 



3179 

3ieo 

3181 
3182 
3183 
3184 
3185 



045020 
045020 
045020 

045022 
045026 
045030 
045034 



ENDSUB 



104403 

005737 002222 

001402 

004737 017014 



045034 
045034 
045034 



045036 
045036 
045042 
045044 
045046 



104402 



004737 
103405 
010001 



015604 



300$: 



TST 


FATFLG 


BEQ 


3001 


JSR 


PC.CKDROP 



1 //////////// END SUBTEST ////////// 

L10063; 

TRAP CJESUB 

i ANY FATAL ERRORS ? 

j BRANCH IF NOT 

tTRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 



* ♦ 



\ TEST 6: SUBTEST 6: 
SUBTEST DESCRIPTION: 



This subtest verifies that the Reset FIFO function within 
the Write Miscellaneous Control 1 function initializes 
the FIFO to correct intial status. The following steps 
are performed: 

1* Resat on already initialized FIFC and check for 
proper status. 

Write a varying number of bytes CI -65.) Into the 
FIFO and verify that after each block of bytes is 
written the FIFO can be be reset to it's initial 
state. 



2. 



TESr STEPS: 



BEGIN 



Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message 



buffer 



Do a Write Subsystem 
Do a Write Subsystem 
If all Tap* Status 2 
signals NOT-0 Then 
Do a Wr I te Subsystem 



Write Misc to Reset FIFO 

READ STATUS 

CICER.IFMK.IHER) flip-flop 

Print Error 

WRITE NPR to set tape direction out 



REPEAT FOR 
BEGIN 
Do 
Do 
Do 
If 



BYTE COUNT 1 TO 65. 



END 



a Write 
a Wr i te 
a Write 

all Tape Status 2 
signals NOT-0 Then 



current 

FIFO 



Subsystem WRITE FIFO with the 
Subsystem Write Misc to Reset 
Subsystem READ STATUS 

CICER.IFMK.IHER) flip-flop 

Print Error 



byte count 



x -- 



BGNSUB 



\//////////// 



BEGIN SUBTEST ///////// 
T6.6: 

TRAP 



C$BSUB 



5$: 



Write to TSSR register to soft initialize the controller 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.'JFIMSG 



jWRITE TO TSSR TO SOFT INITIALIZE 
;BR IF SOFT INIT OKAY 
j SAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING INIT 



M12 



TSV5 - HARDWARE 


TESTS ^ 


MACRO M 


TEST 6; SURTES 


T 6; rlFO VERIFY 


045046 


104455 




045050 


001201 




045052 


003646' 




045054 


011644' 




3186 






3187 045056 


005037 


002222' 


3188 045062 


012704 


047740' 


3189 045066 


004 737 


010472' 


3190 045072 






3191 045106 


103407 




3192 045110 


010001 




319* 045112 






3194 045112 






045112 


104455 




045114 


001202 




045116 


046365' 




045120 


011656' 




3195 045122 


005237 


002222' 


3196 045126 






045126 


104406 




3197 






3198 045130 


004737 


047544' 


3199 045134 


012704 


050110' 


3200 045140 


010465 


000000 


3201 045144 


004737 


016146' 


3202 045150 






3203 045164 


103407 




3204 045166 


010001 




3205 045170 






3206 045170 






045170 


104455 




045172 


001203 




045174 


046422' 




045176 


011656' 




3207 045200 


005237 


002222' 


3208 045204 






045204 


104406 




3209 






3210 






3211 






3212 






3213 045206 


004737 


04/524' 


3214 045212 


012704 


050110' 


3215 045216 


010465 


000000 


3216 045222 


004737 


016146' 


3217 045226 






3218 045242 


103407 




3219 045244 


010001 




3220 045246 






3221 045246 






045246 


104455 




045250 


001204 




045252 


0464C6' 




045254 


011656' 




3222 045256 


005237 


002222' 


3223 045262 






045262 


104406 





17:02 



j Do a WRITE CHARACTERISTICS to se 
10$ t CLR FATFLG 

MOV 0T17PACKET.R4 

JSR PC.WRVCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT.ERRNO 
42$; ERRDF ERRNO, T17SSR, PKTSSR 



70$ 



77$: 



SEQ 155 



TRAP CIERDF 
.WO J 641 
.WORD SFIERR 
.WORD 3F1MSG 

tup a message buffer 

j CLEAR FATAL ERROR FLAG 

t GET THE ADDRESS OF COMMAND PACKET 

jDO WRITE CHARACTERISTICS COMMAND 

tSOOFORCE ERROR IF FORCER-1 

}BR IF CARRY SET CGOOD RETURN) 

{SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 





INC FATFLG 


50$ j 


CKLOOP 


} 


Do a Write Subsystem Write M 




JSR PC.T17RSFIF 




MOV $T17PK2,R4 




MOV R4.TSDBCR5) 




JSR PC.CHKTSSR 




FORCERROR 62$ 




BCS 70$ 




MOV R0.R1 




NEXT.ERRNO 


62$: 


ERRDF ERRNO. T172SSR, PKTSSR 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



Misc 



C$ERDF 
642 

T17SSR 
PKTSSR 



C$CLP1 



to Reset FIFO 

jSETUP PKT FOR WRITE MISC RESET FIFO 
{GET WRITE SUBSYSTEM COMMANO PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

t aaOFORCE ERROR IF FORCER-1 
{BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 

.WORD 
.WORD 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
643 

T172SSR 
PKT VSR 



C$CLP1 



80$: 



Do a Write Subsystem 
If all Tape Status 2 
signals NOT-0 Then 
JSR PC.T17SRD 
MOV 4T17PK2»R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 77$ 
BCS 80$ 
MOV R0.R1 
NEXT, ERRNO 
ERRDF ERRNO, T173SSR, PKTSSR 



INC FATFLG 
CKLOOP 



READ STATUS 

(ICER.IFMK.IHER) flip-flop 
Print Error 



{SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMANO PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

iQQOFORCE ERROR IF FORCER-1 
; BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



TRAP 


C$E«Dh 


.WORD 


644 


.WORD 


T173SSR 


.WORD 


PKTSSR 


{SET FATAL ERROR FLAG 




{LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST 6: SU8TEST 6: FIFO VERIFY RESET FIFO TEST 



N12 



SEQ 156 



3224 045264 


004737 


047706' 


3225 045270 


012701 


046142' 


3226 045274 


012702 


050002' 


3227 045300 


011211 




3228 045302 


042711 


002000 


3229 045306 


042711 


001000 


3230 C45312 


042711 


000400 


3231 045316 


016261 


000002 000002 


3232 045324 


005000 




3233 045326 


012701 


047762' 


3234 045332 


012702 


046122' 


3235 045336 


012703 


000024 


3236 045342 


004737 


011310' 


3237 045346 






3238 045356 


103404 




3239 045360 






3240 045360 






045360 


104456 




045362 


001205 




045364 


04741*' 




045366 


012160' 




3241 045370 






045370 


104406 




3242 






3243 






3244 045372 


0\2700 


000100 


3245 045376 


004737 


047566' 


3246 045402 


012704 


050110' 


324 7 045406 


010465 


000000 


3248 045412 


004737 


016146 


3249 045416 






3250 045432 


103407 




3251 045434 


010001 




3252 045436 






3253 045436 






045436 


104455 




045440 


001206 




045442 


046533' 




045444 


011656' 




3254 045446 


005237 


002222* 


3255 045452 






045452 


104406 




3256 






3257 






3258 045454 


012701 


046142' 


3259 045460 


012702 


000100 


3260 045464 


005000 




3261 045466 


110021 




3262 045470 


005200 




3263 0454 72 


005302 




3264 045474 


003374 




3265 






3266 






3267 045476 


012737 


000001 00231U 


3268 






3269 045504 






3270 045504 


013700 


002310' 



92$: 



100$ 



112$: 



120$: 



130$: 



JSR 


PC.T17SETEXP 


jSET WORDS 0-7 EXPD-RECV (NOT 


TESTING) 


MOV 


4T17EXSTA.R1 


>GET EXPECTED READ STATUS 




MOV 


OT17BFSTA.R2 


>GET RECV READ STATUS 




MOV 


(R2),(R1) 


iSET EXPD WORD 48 - RECV TEMP 




BIC 


4S1.ICER.CR1) 


j SET EXPD ICER '0 




BIC 


♦Sl.IFMK.CRi) 


{SET EXPD IFMK -0 




BIC 


4S1,IHER,CR1) 


j SET EXPD IHER -0 




MOV 


2CR2),2(R1) 


j SET EXPD WORD 49 - RECV (NOT 


TESTING) 


CLR 


RO 


j HIGH RECV ADDRESS FOR CKMSG2 




MOV 


0T17BFR.R1 


iLOW RECV ADDRESS FOP CKMSG2 




MOV 


4T17EXP.R2 


jEXPD ADDRESS 




MOV 


$20. ,R3 


t NUMBER OF BYTES TO COMPARE 




JSR 


PC.CKMSG2 


i EXPD EQUAL RECV? 




FORCERROR 92$,N0TSSR 


{ sao 




BCS 


100$ 


{BR IF YES 




NEXT.ERRNO 






ERRHRD 


ERRN0,T177CMP,MSGSTAT 


{REPORT ERROR 








TRAP 


C$ERHRD 






.WORD 


645 






.WORD 


T177CMP 






.WORD 


MSGSTAT 


CKLOOP 




j LOOP ON ERROR, IF FLAG SET 





TRAP 



C$CLP1 



Do a Write Subsystem WRITE NPR 

MOV »>NP.OUT,RO 

JSR PC.T17SNPR 

MOV 4T17PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 112$ 

BCS 120$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRN0,T174SSR,PKTSSR 



to set tope direction out 
j SET TAPE DIRECTION OUT 
{SETUP T17PK2 FOR WRITE NPR 
j GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADORES^ TO EXECUTE 
{WAIT FOR SSR TO SET 

1800FORCE ERROR IF F0RCER=-1 
5 BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



TRAP 



C$ERDF 
646 

T174SSR 
PKTSSR 



C$CLP1 



Setup incrementing pattern in FIFO data buffer 



MOV 4T17EX5TA.R1 

MOV 464., R2 

CLR RO 

MOVB RO.CRD* 

INC RO 

DEC R2 

BGT 130$ 



;EXPD WRITE FIFO DATA BUFFER 
{TEST PATTERN SIZE 
{INCREMENT TES~ PATTERN 
{STORE INCREMENT TEST BYTE 
{SET NEXT PATTERN 
iDONE? 
}BR IF NO 



150$: 



REPEAT FOR BYTE COUNT 1 TO 65. 

MOV 0!., COUNT {GET FIRST BITE COUNT 

Do a Writ.* Subsystem WRITE FIFO with the current byte count 

{REPEAT LOOP LABEL 
MOV COUNT, RO {FIFO BYTE COUNT 



B 1 6 



TSV5 - HARDWARE 


TESTS 


MACRO Mil 13 


Oi-FEB-84 


17 i 02 


TEST 6; SUBTEST 6: FIFO VERIFY RESET 


FIFO TEST 




3271 045510 


U2701 


046142' 




MOV • TWEXSYA.Rl 


32?2 045514 


004737 


047612' 




JSR PC,T17WTIF 


3273 045520 


012704 


050110' 




MOV #T17f>K2,R4 


3274 045524 


010465 


000000 




MOV R4.TSD8CR5) 


3275 045530 


004737 


016146' 




JSR PC*CHKTSSR 


3276 045534 








FORCERROR 1*521 


3277 045550 


103407 






BCS IbOl 


3273 045552 


010001 






MOV R0.R1 


32 79 045554 








NEXT.ERRNO 


3280 045554 






L52$s 


ERRDF ERRN0.U75SSR.PKTSSR 


045554 


104455 








045556 


001207 








045560 


046576* 








045562 


011656' 








3281 045564 


005237 


002222' 




INC FATFLG 


3282 045570 






1601: 


CKLOOP 


045570 


104406 








3283 










3284 






l 


Do • Writ* Sub«y.t«m Writ* Miac 

jsr pc, U7RS* v 


3285 045572 


004737 


047544' 




3286 045576 


012704 


050110* 




MOV •Tl7PK2.iV 


3237 045602 


010465 


OOOOOO 




MOV R4,TSDti(R5) 


3288 045606 


004737 


016146* 




JSR PC.CHKTSSR 


3289 045612 








FORCERROR 162* 


3290 045626 


103407 






BCS 1701 


3291 045630 


010001 






MOV R0.R1 


3292 045632 








NEXT.ERRNO 


3293 045632 






162* : 


ERRDF ERRN0.T172SSR. PKTSSR 


045632 


104455 








0456M 


001210 








04^36 


046422' 








045640 


011656* 








3294 045642 


005237 


002222' 




INC FATFLG 


3295 045646 






I70$i 


CKLOOP 


045646 


104406 








3296 










3<97 






J 


Do • Writ* Sub*y*t*w READ STATUS 


3298 






i 


If all Tap* Status 2 (ICER.IFMK, 


3299 






1 


aignala NOT-0 Th*n Print Error 


3300 045650 


004737 


04 7524' 




JSR PC.T17SRD 


3301 045654 


012704 


050110' 




MOV »T17PK2,R4 


3302 045660 


010465 


OOOOOO 




MOV R4,TS06(R5) 


3303 045664 


004737 


016146* 




JSR PC.C^TSSR 


3304 O45670 








FORCERROR 1771 


3 305 045704 


103407 






BCS 1801 


3306 045706 


010001 






MOV R0.P1 


3307 045710 








NEXT.ERRNO 


3308 045710 






I77|j 


ERRDF ERRNO. T173SSR»PKTSSR 


045710 


104455 








045712 


001211 








045714 


046466' 








045716 


011656' 








3309 045720 


00523 7 


002222' 




INC FATFLG 


3310 045724 






IttOll 


CKLOOP 


045724 


104406 








3311 045726 


004 737 


047706' 




JSR PC.TWSEUxP 


33U 045/32 


012704 


046 142 4 




MOV •UKX&IAtRl 



SEQ 157 



iFIFO WRITE DATA ADDRESS 

jSETUP T17PK2 FOR WRITE FIFO 

iGLT WRITE SUBSYSTEM COMMANO PACKET 

l SET THE PACKET ADDRESS TO EXECUTE 

i WAIT FOR SSR I'O SET 

iMOFORCE ERROR IF FORCER-1 
|BH IF CARRY SET ( GOOO RETURN) 
tSAVE CONTENTS OF TSSR 



jOEVKE FATAL S5R FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



» SET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG 



5ET 
TRAP 



CIERDF 
64 7 

T175SSR 
PKTSSR 



CICLP1 



to R«Nt FIFO 

, SETUP PKT FOR WRITE MISC RESET FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
, SET THE PACKET AOORESS TO EXECUTE 
IWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
l SAVE CONTENTS OF TSSR 



jUEVICE FATAL SCR FAILED TO SET 

TRAP 
,WOH0 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
lLOOP ON ERROR. IF FLAG 



SET 

TRAP 



CIERDF 
648 

U72SSR 
PKTSSR 



CICLP1 



IHEP) flip-flop 

, SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
iSET THE PACKET AOORESS TO EXECUTE 
,WAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
I0R IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 

lOEVlCE FATAL SSR FAILED TO SET 



TRAP 


CIERDF 


.WORD 


649 


.WORD 


Tl /JSSR 


.WORD 


PK T l ?SR 


I SET FATAL ERROR FLAG 




lLOOP ON ERROR, IF FLAG SET 




TRAP 


CtCLPi 


I SET WORDS 0-7 EXPQ-RECV (NOT 


TESTING) 


*Utt EXPECTED RtAO STATUS 





IIS? 6^^iT T ^ T f ) IKO M 0il?F^^§ E T°^F5 B feiT 



17iO? 



C13 



SEQ L58 



3313 045736 


012 702 


050002 ' 


3314 04574*" 1 


011211 




3315 04574m 


042711 


002000 


3316 045750 


042711 


001000 


3317 045754 


042711 


000400 


3316 045760 


016261 


000002 000002 


3319 045766 


005000 




3320 045770 


012701 


047762* 


3321 045774 


012702 


046122* 


3322 046000 


012703 


000024 


3323 046004 


0O4737 


011310' 


3324 046010 






3325 046020 


103404 




3326 046022 






3327 O46022 






046022 


104456 




O46024 


001212 




046026 


047414' 




046030 


012160' 




3328 046032 






046032 


104406 




3329 






3330 






3331 046034 






3332 046034 






3333 046044 


00523 7 


002310' 


3334 046050 


02372^ 


002310' 000101 


3335 046056 


101002 




3336 046060 


000137 


045504' 


3337 046064 






3338 






3339 046064 






046064 






046064 


104403 




3340 






3541 046066 


005737 


002222' 


3342 046072 


001402 




3343 046074 


004737 


017014' 


3344 046100 


004757 


016270' 


3345 046104 


103002 




3346 046106 


000137 


040144' 


3347 046112 






3348 






3349 046112 






046112 


104432 




046114 


002112 




3350 






3351 






3352 






3353 






3354 






3355 






3356 04611b 






335/ 






3358 046116 


* 7 / 




3359 04611/ 


ovr 




3360 046120 


360 





MOV 


♦T17BFSTA,R2 


MOV 


(R2),(R11 


b;c 


♦Sl.ICER.(Rl) 


BIC 


♦Sl,IFMK t (Rl) 


BIC 


♦Sl.IMER.(Rl) 


MOV 


2CR?),2CR1) 


CLR 


RO 


MOV 


♦T178FR,R1 


MOV 


*T17EXP>R2 


MOV 


#20,, R3 


JSR 


PC.CKMSG2 


FORCERROR 192$,N0TSSR 



192li 



BCS 2001 

NEXT.ERRNO 

ERRHRO ERRNO. T177CMP.MSG5TAT 



200$ j CKLOOP 



250$ ? 



2601 j 



FORCEXIT 

INC COUNT 

CMP COUNT ,065, 

BHI 260$ 

JMP 150$ 



EN0SL8 



260$ 





TST 


EATFLG 




BEQ 


300$ 




JSR 


PC.CKDROP 


300$} 


JSR 


PC.T5TL00P 




BCC 


305$ 




JMP 


T17L00P 


305$ i 







EXIT 



T5T 



lLOCAL 



Tl/MSKi 



STORAGE FOR TliiS TEST 



,ByTE 


*C<000» 


.BYTE 


*C<340> 


*&VTE 


*C<017> 



iGET RECV READ STATUS 

I SET EXPO WORD 08 • RECV TEMP 

jSET EXPO ICER -0 

I SET EXPO IFMK -0 

iSET EXPO IHER -0 

l SET EXPO WORD *9 

iHIGH RECV ADDRESS FOR CKMSG2 

I LOW RECV ADDRESS FOR CKMSG2 

lEXPD ADDRESS 

iNUMBER Of BYTES TO COMPARE 

>EXPD EQUAL RECV7 

I ££0 

iBR IF YES 

i REPORT ERROR 



lLOOP ON ERROR. IF FLAG 



RECV (NOT TESTING) 



TRAP 


C$ERHRD 


.WORD 


650 


.WORD 


T177CMP 


.WORD 


MSGSTAT 


SET 




TRAP 


C$CLP1 



iGET NEXT BYTE COUNT 

iDONE ALL BYTES? 

iBR IF YES 

iDO ANOTHER BYTE COUNT 



,//////////// END SUBTEST ////////// 

L 10064 j 

TRAP C$ESUB 

,ANY FATAL ERRORS ? 

j BRANCH IF NOT 

j TRY TO DROP THE UNIT 

iDO ITERATIONS? 

iBR IF NO 

lLOOP UNTIL ITERATIONS DONE 



i////////t/ KMT TEST 



////////// 

TRAP CIEXIT 
.WORD L 10056 



i ■-■}> .K OT (^TESTED BITS IN READ STATUS BYTES 

jUNTESTEO BITS ARE SET TO 1 

iByTE MASK 

iBtTE 1 MASK (PARERR.IRESV2.IRESV1 ^ 

iBtTfc 2 (TIMER A t TIMER ^UNOEFINEDUiOO 



mi tym&rtrhFomwkkkMiwmr"* * 



D.13 



SEQ 159 



3561 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3580 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3589 

339C 

3391 

3392 

3393 

33<V4 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

34 Of, 

3407 

3408 

3409 

3410 

34U 

3412 

3413 

3414 

3415 

3416 

3417 



046121 

046122 

046122 
046124 

046126 

046130 
046132 
046134 
046136 
046140 
046142 
046244 

046244 



046346 
046365 
046422 
046466 
046533 
046576 
046642 
0467U5 
046767 
047063 
047147 
047232 
04 7306 
047414 



04 7500 
047500 
04 7504 
047510 
0*47514 
04 7516 
04 7520 
04 7522 



04 24 
04 524 
04 7530 
04 7534 
047540 
04 7542 



000 



0C0000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



106 
127 
127 
127 
127 
127 
127 
106 
122 
106 
106 
122 
106 
106 



012701 
012702 
105021 
005302 
003375 
000207 



004 73 7 
012700 
112720 
105010 
000207 



111 
122 
122 
122 

122 
122 
122 
111 
145 
111 
111 
145 
111 
111 



106 
111 
111 
111 
111 
111 
111 
106 
141 
106 
106 
141 
106 
106 



04 7 762 
000120 



04 7500 
050120 
000005 



•BYTE 

T17EXP: 

.WORD 

. WORD u 

.WORD 

.WORD 

•WOftO 

,WWO 

.WORD 

.WORD 

T17EXSTA: ,BLKB 66, 

T17EXF.N0: 

T17WTDATA: .BLKB 66 



I MAKE IT EVEN 

iBEGIN EXPECTED DATA BUFFER 
^MESSAGE TYPE 
»DATA FIELD LENGTH 
jRBPCR 
jXSTO 
jXSTl 
»X5T2 
IXST3 

jX5T4 (ALWAYS PRESENT FOR WRITE SUB.) 
lEXPECTEO READ STATUS ANO WRITE FIFO DATA 
lENO EXPECTED DATA BUFFER 

jWRITE FIFO EXPECTED DATA BUFFER 



I * 

I LOCAL 

I - 



TEXT MESSAGES FOR TEST 



TST17I0: 

T17SSR; 

T172SSR; 

T173SSR: 

T174SSR: 

T175SSR: 

T176SSR: 

T171CMP: 

T172CMP: 

T173CMP- 

T174CMP: 

T175CMP: 

T176CMP: 

T177CMP 5 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



ASCIZ 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

FIFO 

Read 

FIFO 

fifo 

Reed 

FIFO 
FIFO 



•FIFO Lxercieer* 
CHARACTERISTICS Failed' 
SUBSYSTEM (Writ* Miec) Failed* 
SUBSYSTEM (Reed Statue) Ftiltd' 
SUBSYSTEM (Write Npr) Failed' 
SUBSYSTEM (Writ* FIFO) Failed 1 
SUBSYSTEM (Reed FIFO) Failed* 
Statue »n WORD #9 Incorrect after 



FIFO Data not equal 
Statue (In WORO #9) 
Statue (In WORD #9) 
FIFO Data not eouel 
Statue (In WORD e9) 
Statue (In WORD 09) 



OS 



Ini t i al 
to Write FIFO , Data 
It>correct after WRITE 
Incorrect after REAO 
to Write FIFO Data' 

Incorrect after READ FIFO from an Empty FIFO' 
Incorrect after RESET FIFO' 



ize' 

e in WORD 

FIFO* 
FIFO' 



I CLEAR MESSAGE BUFFER 

T17CLRBUF: 

SAVREG 



101 



i SETUP 
T17SRD: 



MOV eTl7BFR,Rl 

MOV ♦ T 1 7BEND - T 1 7BFR , R2 

CLRB (Rl)» 

DEC R2 

BGT 101 

RTS PC 



T17PK2 PACKET FOR READ STATU5 



JSR PC.U7CIRBUF 

MOV «T17DT2,RO 

MOVB ePW,SDSTATU5*(R0)> 

CLRB (RO) 

RTS PC 



I 

tSAVE R1-R5 UNTIL NEXT RETURN 

t GET MESSAGE BUFFER ADDRESS 

j SIZE OF MESSAGE BUFFER IN BYTES 

iCLEAR A BYTE 

j DONE 7 

iBR IF NO 

iRETURN 



i CLEAR MESSAGE BUFrER 

iWRITE SUBSrSTEH DATA BUFFER 

iSTORF READ STATUS COMMANO IN BSEl.O 

, CLEAR BSEL1 

jRETURN 



TSV5 - HARDWARE TESTS MACRO Mil 13 Ol-FEB-84 17 5 02 
TEST 6; SUBTEST 6! FIFO VERIFY RESET FIFO TEST 



E13 



SEQ 160 



3418 








3419 








3420 








3421 








3422 


047544 






3423 


047544 


004737 


047500' 


3424 


047550 


012700 


050120' 


3425 


047554 


112720 


000010 


3426 


047560 


112710 


000030 


3427 


047564 


00020 7 




3428 








3429 








3430 








3431 








3432 








3433 








3434 








3435 








3436 








3437 


047566 






3438 


04 7566 


0O4737 


047500' 


3439 


047572 


012701 


050120' 


3440 


047576 


112721 


000011 


3441 


04 7602 


052700 


000020 


3442 


04 7606 


110011 




3443 


047610 


000207 




3444 








3445 








3446 








3447 








3448 








3449 








3450 








3451 








3452 


047612 






3453 


047612 






3454 


047616 


0O4737 


047500' 


3455 


047622 


012702 


050120' 


3456 


047626 


112722 


000004 


3457 


047632 


110022 




3458 


047634 


005022 




3459 


047636 


112122 




3460 


04 7640 


OO5300 




3461 


047642 


003375 




3462 


047644 


000207 




3463 








3464 








3465 








3466 








3467 








3468 








3469 








3470 


047646 






3471 


047646 


004737 


047500' 


34 72 


047652 


012701 


050120' 


3473 


047656 


112721 


000003 


3474 


047&62 


110021 





j SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 

T17RSFIF: 

JSR 

MOV 

MOVB 

MOVB 

RTS 



PC.T17CLRBIF 

*T17DT2,RO 
*PW>WMISC,(RO)* 
♦MS.RSFIFJMS.RSTAP^CRO) 
PC 



iCLEAR MESSAGE BUFFER 

iWRITE SL8SYSTEM DATA BUFFER 

I STORE WRITE MISCELLANEOUS IN BSELO 

j STORE B5EL1 CLEAR FIFO CODES 

iRETURN 



SETUP T17PK2 PACKET FOR WRITE NPR 



INPUT: 



RO CONTAINS BSEL1 NPR DATA 

SETS NP.WRP SINCE IF IT WRITES WRONG PARITY 



T17SNPR? 




JSR 


PC.T17CLRBUF 


MOV 


♦T17DT2.R1 


MOVB 


♦PW.WNPR.(Rl)* 


BIS 


#NP.WRP,RO 



MOVB 
RTS 



RO.(Rl) 
PC 



I CLEAR MESSAGE BUFFER 
tUPITE SUBSYSTEM DATA BUFFER 
jSTORE WRITE NPR IN BSELO 
iDON'T WRITE WRONG PARITY 
jSTORE NPR DATA IN BSEL1 
tRETURN 



i ♦ 

J 
J 
I 

J 



SETUP T17PK2 PACKET FOR WRITE FIFO 



INPUT: 



RO CONTAINS BYTE COWT 
Rl CONTAINS DATA PATTERN 



BLOCK ADDRESS 



T17WFIF: 



10$: 



SAVREG 

JSR PC.T17CLRBUF 

MOV 0T17DT2.R2 

MOVB ♦PW.WFIE0 I (R2)» 

MOVB R0,(R2)» 

CLR (R2)» 

MOVB (R1)»,(R2)» 

DEC RO 

BGT 10* 

RTS PC 



jSAVE R1-R5 UNTIL NEXT RETURN 
iCLEAR MESSAGE BUFFER 
iWRITE SUBSYSTEM DATA BUFFER 
iSTORE WRITE FIFO IN BSELO 
jSTORE BYTE COUNT IN BSEL1 
tCLEAP SEL2 (UNUSED) 
iSTORE DATA PATTERN BYTE 
iDONE ALL BYTES? 
iBR IF NO 
jRETURN 



SETUP T17PK2 PACKET FOR RFAD FIFO 
INPUT: 



RO CONTAINS SEL2 BYTE COUNT 



U7RFIF; 



JSR PC.T17CLRBL* 

MOV *T17DT2,R1 

MOVB OPW.RFIFO.CRl)* 

MOVB RO.CRl)* 



iCLEAR MESSAGE BUFFER 

jWRITE SUBSYSTEM DATA BUFFER 

jSTORE READ FIFO IN BSELO 

jSTORE BYTE COUNT IN BSEL 1 



F13 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17}02 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 



SEQ 161 



34 75 

34 76 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

34 94 

3465 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3500 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

352?. 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 



047664 000207 



RTS 



PC 



047666 
047666 
047672 
047676 
047700 
047702 
047704 



047706 
047706 
047712 
047716 
047722 
047724 
047726 
047730 

047732 



047740 
047740 
047742 
047744 
047746 

047750 
047750 
047752 
047754 
047756 
047760 



047762 
047762 
047764 
047766 
047770 
047772 
047774 
047776 
050000 
050002 
050102 



012701 046122 

012700 000122 

105021 

005300 

003375 

000207 



012702 046122 

012703 047762 
012700 000010 
012322 
005300 
003375 
000207 



100004 
047750 
000000 
000012 



047762' 

000000 

0OO024 

000000 

000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



i CLEAR EXPECTED DATA MESSAGE BUFFER 

T17CLEXP: 

MOV *T17EXP,R1 

•T17EXEND-T17EXP.RO 

CRD* 

RO 

10$ 

PC 



i *■ 



10*8 



MOV 

CURB 

DEC 

BGT 

RTS 



{RETURN 



jGET EXPD ADDRESS 
{GET EXPD SIZE 
■CLEAR A BYTE 
iDONE? 
i BR IF NO 
j RETURN 



1 S*t WORDS 0-7 of expd message buffer - to r*cv since not testing 



{GET EXPD 

iGET READ STATUS RECV iHJFFfcR 

{SET UORDS 0-7 EXP-RECV 

i SET EXPD-RECV 

iDONE WORDS 0-7 WORDS? 

» BR IF NO 

{RETURN 



T17SETEXP: 




MOV 


♦ U7EXP.R2 


MOV 


OT17BFR.R3 


MOV 


OB..RO 


5$: MOV 


CR3)*,CR2)* 


DEC 


RO 


BGT 


5$ 


RTS 


PC 



.BLKB 



10-<. -TSV2£7> 



lURITE CHARACTERISTICS COMMAND PACKET 



T17PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 



T17DATA: 



.WORD 
.WORH 

.WORl? 
.WORD 
.WORD 



100004 

U7DATA 



10. 



T17BFR 


20. 







{MESSAGE BUFFER FOR ALL TEST 6 COMMANDS 



T17BFR.* 




.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





T17BFSTA 5 .BLKB 


64, 


T17BEN0; 





iCOMMANO PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND. WITH ACK 

jADDRESS OF CHARACTERISTICS BLOCK 

{MINIMUM MESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LFNGTH OF MESSAGE BUFFER 

jESS.ENB.EAI.ERI 

{EXTENDED FEATURES UNIT NO. ETC, 



{BEGIN MESSAGE BUFFER 

{MESSAGE TtPE 

{DATA FIELD LENGTH 

jRBPCR 

jXSTO 

iXSTl 

|XST2 

{XST3 

IXST4 

{READ 

j END 



(ALWAYS PRESENT FOR WRITE SUBSYSTEM 
STATUS ANO WRITE FIFO BUFFER 
OF MESSAGE BUFFER 



{WRITE SUBSYSTEM READ STATUS COMMAND PACKET 



G13 



TSV5 - HARDWARE TESTS 

TEST 6> SUBTEST 6: FIFO VERIFY 



MAC8Q_M^3 ET O^B f , 



|4 17s02 
:ST 



SEQ 162 



3554 
3536 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
354 7 
3548 
3549 
3550 



3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
35u2 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 

3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 



3587 
3588 
3589 



050110 
050110 
050112 
050114 
050116 

050120 
050120 
050121 
050122 
050124 

050226 
050226 
050226 



050230 
050230 
050230 
050234 
050240 
050246 

050246 
050246 
050252 
050254 
050256 
050256 
050260 
050262 
050264 



J 



100006 
050120 
000000 
000012 



000 

000 

000000 



104401 



T17PK2; 



T170T2: 



.BLKB 

.WORD 
.WORD 
.WORD 
.WORD 



.BYTE 
.BYTE 
.WORD 
.BLKB 

ENDTST 



!0-<.-TSV2£7> 

P.WRTSUBIP.ACK 

T17DT2 



10. 






66. 



jWRITE SUBSYSTEM WITH ACK 
lLOW ADDRESS OF DATA BLOCK 
»HIGH ADDRESS OF DATA BLOCK 
jMINIMUM MESSAGE PACKET SIZE 



jDATA BLOCK 
jBSELO 
iBSELl 
JSEL2 
iWRITE FIFO 



DATA OUTPUT B'JFFER 



L10056: 



TRAP 



CSETST 



.SBTTL TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 



TEST DESCRIPTION; 



TEST STEPS? 

REPEAT FOR LOOPCNT 
BEGIN 

Write to TSSR register to soft Initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features i.witch 
If Extended Features Hardware Switch Clear then: 

Do Write Subsystem Write Miscellaneous to Set Extender! Features 
Do WRITE CHARACTERISTICS to select reserved unit 7 
Do a Write Subsystem READ STATUS 

If any transport interface sipnals are asserted then Print Error 
END 



BGNTST 



012700 
004737 
012737 



004737 
103405 
010001 

104455 
001274 
003646 
011644 



050736' 

016322 

000012 



015604* 



T7: 



002216 



050266 005037 002222' 



MOV «TST18I0,R0 i ASCII MESSAGE TO IDENTIFY TfcST 

JSR PC, TSTSETUP jDO INITIAL TEST SETUP 

MOV 010., LOOPCNT {PERFORM 10 ITERATIONS 

T18L00P: 

j Write to TSSR register to soft in!tial ! z* the controller 
5$: 

iWRITE TO TSSR TO SOF^ INITIALIZE 
jBR :f SOFT INIV CK*\ 
j SAVE CONTENTS 1 " , SSR 
lOEVICE FATAL DURING INIT 

TRAP CIERDF 
. WORD 700 
.WORD SFIERR 
.WORD SFIMSG 

i Do WRITE CHARACTERISTICS to check for Extended Features Switch 
10$: CLR FATFLG iCLEAR FATAL ERROR FLAG 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



TSV5 - HARDWARE 


TESTS 


MACRO M1113 


TEST 7; 


STATIC 


TRANSPORT BUS INTERFAC 


3590 


050272 


012704 


051420' 


3591 


050276 


004737 


010472' 


3592 


050302 






3593 


050316 


103407 




3594 


050320 


010001 




3595 


050322 






3596 


050322 








050322 


104455 






050324 


001275 






050326 


050775' 






050330 


011656' 




3597 


050332 


00523 7 


002222' 


3598 


050336 








050336 


104406 




3599 








3600 








3601 








3602 


050340 


012701 


051442' 


3603 


050344 


032761 


000200 000012 


3604 


050352 


001026 




3605 


050354 


004737 


051266' 


3606 


050360 


012704 


051470' 


3607 


050364 


010465 


OOOOOO 


3608 


050370 


004737 


016146' 


3609 


050374 






3610 


050410 


103407 




1*611 


050412 


010001. 




3612 


050414 






3613 


050414 








050414 


104455 






050416 


001276 






050^20 


051032' 






050422 


011656' 




3614 


050424 


005237 


002222' 


3615 


050430 








050430 


104406 




3616 








3617 








3618 








3619 


050432 


005037 


002222' 


3620 


050436 


012704 


051420' 


3621 


050442 


004737 


010472' 


3622 


050446 






3623 


05046;! 


103407 




3624 


050464 


010001 




3625 


050466 






3626 


050466 








050466 


104455 






050470 


001277 






0504 72 


050775' 






050474 


011656' 




3627 


0504 76 


005237 


002222' 


3628 


050502 








050502 


104'. ~o 




3629 








3630 








3631 


050504 


012701 


051442' 



SUflf 64 17i02 



1-113 



SEQ 163 



12$: 



15$: 



22*: 



30$: 



42$: 



50$: 



MOV 0T18PACKET.R4 

JSR PC,WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0,R1 

NEXT, ERRNO 

ERRUF ERRNO , T 18SSR . PKTSSR 



iGET THE ADDRESS OF COMMAND PACKET 
jDO WRITE CHARACTERISTICS COMMAND 

iSSDFORCE ERROR IF FORCER" 1 
jBR IF CARRY SET (GOCD RETURN) 
j SAVE CONTENTS OF TSSR 



(DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 
CKLOOP 



FATFLG 



tSFT FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



C$ERDF 
701 

T18SSR 
PKTSSR 



C$CLP1 



If Extended Features Hardware Sw 
Do Write Subsystem Write Misce 



MOV 


*T18BFR,R1 




BIT 


*X2,EXTF,XST2(R1) 


BNE 


30 $ 




JSR 


PCT18SMISC 




MOV 


*T18PK2,R4 




MOV 


R4,TSDBCR5) 




JSR 


PC.CHKTSSR 




FORCERROR 22$ 




BCS 


30$ 




MOV 


R0.R1 




NEXT, 


ERRNO 




ERRDF 


ERRNO, T182SSR 


PKTSSR 



itch Clear then: 

llaneous to Set Extended Features. 

iMESSAGE BUFFER ADDRESS 

jEXTENOED FEATURES SWITCH SET? 

iBR IF YES 

j SETUP PACKET FOR WRITE MISCELLANEOUS 

iGET WRITE SUBSYSTEM COMMAND PACKET 

j SET TH£ PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-l 
;BR IF CARRY SET (GOOD RETURN) 
)SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORO 
.WORO 
.WORD 
jSET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG SET 

TRAP 



C*EROF 
702 

T!3i>$SR 
PKTSVH 



C$CLP1 



Do WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV *T18PACKET # R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T18SSR, PKTSSR 



INC FATFLG 
CKLOOP 



Clear message buffer 
MOV *U8BFR t Rl 



select reserved unit 7 

iCLEAR FATAL ERROR FLAG 

jGET THE ADDRESS OF COMMANO PACKET 

jDO WRITE CHARACTERISTICS COMMANO 

{OSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSSR 



j DEVICE FATAL SSR 



t SET FATAL ERROR i LAG 
I LOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 
TRAP 



C$ERDF 
703 

T18SSR 
PKTSSR 



C$CLP1 



iGET MESSAGE BUFFER ADDRESS 



113 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 



SEQ 164 



3652 

36S3 
3634 
3655 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 



3646 
3647 

3648 
3649 
3650 
3651 
365? 
3653 
7*654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 



3663 

3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 



3673 
3674 
3675 
3676 



050510 

C505l4 
050516 
050520 

050522 
050526 
050532 
050536 
050542 
O50."t56 
050560 
050562 
050562 
050562 
050564 
050566 
050570 
050572 
050576 
050576 



050604 
050606 
050612 
050616 
050622 
050626 
050636 
050640 
050640 
050640 
050642 
050644 
050646 
050650 
050650 

050652 
050656 
050660 
050664 
050670 
050672 
050676 
050676 
050676 
050700 



013700 051434' 
105021 
005300 
003375 

004737 051246' 

012704 051470' 

010465 OOOOOO 

004737 016146' 

103407 
010001 



104455 

001300 

051076' 

011656' 

005237 00222,2' 

104406 



60*: 



62$: 



MOV 


T16DATA*4,R0 






(SIZE 


DF MESSAGE 


BUFFER 


IN BYTES 


CLRB 


CRD* 






» CLEAR 


A BYTE 








DEC 


RO 






jDONE? 










BGT 


60* 






iBR IF 


NO 








Do a 


Write Subsystem 
PCTIBSRD 


READ 


STATUS 










JSR 






iSETUP 


PACKET FOR 


READ 


STATUS 




MOV 


4T18PK2.R4 






j GET WRITE SUBSYSTEM COMhAND PACKET 


MOV 


R4, I50BCR5) 






{SET THE PACKET ADDRESS 


TO EXECUTE 


JSR 


PC.CHKTSSR 






{WAIT 1 


~0R SSR TO 


SET 






FORCERROR 62$ 








I BSOFORCE 


ERROR 


IF FORCER-1 


BCS 


vo$ 






t BR IF 


CARRY SET 


CGOOD 


RETURN) 




MOV 


ftO.Rl 






I SAVE 


CONTENTS OF 


TSSR 






NEXT 


ERR NO 
















ERRDF ERRN0.T183SSR 


.PKTSSR 


iDEVICU FATAL SSR 


FAILED TO SET 


















TRAP 


CIERDF 
















.WORD 


704 
















. WORD 


T183SSR 
















.WORD 


PKTSSR 



70$ t 



INC 
CKLOOP 



FATFLG 



j SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG SET 

TRAP 



C$CLP1 



050600 004 737 051310' 



005000 

012701 051442 1 

012702 050706 1 

012703 000012 
004737 011310 1 

103404 



104456 
001301 
051143' 
012160' 

104406 

005737 002222' 

001402 

004737 017014' 

004737 016270' 

103002 

000137 050246' 



104432 
000606 



fir«t 8 words of 
unused bits in R 

PC.T16SETEXP 
transport interface 

RO 

*T18BFR,R1 

#T18EXP,R2 

#10. ,H3 

PC.CKMSG2 

82$,N0TSSR 



82$: 



90$: 



Set 

Set 

JSR 

If any 

CLR 

MOV 

MOV 

MOV 

JSR 

FORCERROR 

BCS 90$ 

NEXT.ERRNO 

ERRHRD ERRNO.TIBCMP.MSGSTAT 



ad Status e* 

J 
siQnal 

; 
{ 
j 
j 
i 



CKLOOP 



buffer « to recv *»ince not testing 
pd equal revd 
SET SOME EXPD TO RECV 
s are aaserted then Print Error 
HIGH RECV ADDRESS FOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
EXPD ADDRESS 

NUMBER OF WORDS TO COMPARE 
EXPD EQUAL RECV? 
SSO 
BR IF YES 



REPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

LOOP ON ERROR, IF FLAG SET 

TRAP 



C$ERHRD 
705 

T18CMP 
MSGSTAT 

C$CLP1 





TST 


FATFLG 




BEQ 


160$ 




JSR 


PC , CKDROP 


160$: 


JSR 


FC.TSTLOOP 




BCC 


165$ 




JMP 


T18L00P 


165$: 







,ANY FATAL ERRORS ? 

j BRANCH IF NOT 

;TRf TO DROP THE UNIT 

jDO ITERATIONS? 

{BR IF NO 

jLOOP UNTIL ITERATIONS DONE 



EXIT 



TST 



TR*P 

. WORD 



CJfcXIT 
L10065 



{LOCAL STORAGE FOR THIS TEST 
J - 



J13 



TSV5 - HARDWARE TESTS MACRO MU13 Ol-FEB-84 17:02 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 



3677 
3678 
3679 
3680 
3681 
3682 
3633 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3 722 

6;:.s 

3724 

3725 
3726 
3727 
3728 

3729 
3730 
3731 
3732 
3733 



050702 
050702 
050703 
050704 
050705 

050706 
050706 
050710 
050712 
050714 
050716 
050720 
050722 
050724 
050726 
050730 

050732 
050734 



050736 
050" F 75 
051032 
051076 
051143 



051246 
051246 
051252 
051256 
051262 
051264 



C5.1266 
051266 
051272 
051276 
051302 
051306 



377 
037 
100 
000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

377 
000000 



123 
127 
127 
127 
124 



012700 
112720 
105010 
000207 



012/0^ 

112720 
112710 
000207 



020 



164 
122 
122 
122 
162 



141 
111 
111 
111 
141 



051500 1 
000005 



051500* 

GOCVO 

000200 



T18MSK: 








.BYTE 


tC<000> 




.BYTE 


tC<340^ 




.BYTE 


tC<277> 




.BYTE 





T18EXP: 








.UORD 







.WORD 







.WORD 







.WORD 







.WOW) 







.WORD 







.WORD 







.WORD 







.WORD 







.WORD 





T18XS: 


.BYTE 


377,020 




.WORD 






SEQ 165 



MASK OF UNUSED BITS IN READ STATUS BYTES 

BYTE MASK 

BYTE 1 

BYTE 2 

MAKE IT EVEN 

EXPECTED DATA BUFFER 

MESSAGE TYPE 

DATA FIELD LENGTH 

RBPCR 

XSTO 

XST1 

XST2 

XST3 

XST4 CALWAYS PRESENT FOR WRITE SUB) 

READ STATUS BYTE 1/0 

READ STATUS BYTE 2 

2 READ STATUS BYTE 0/1 EXPECTED BASE 
{READ STATUS BYTE 2 EXPECTED BASE 



; LOCAL TEXT MESSAGES FOR TEST 



TST18ID: 
TldSSRj .ASCIZ 
T182SSR:. ASCIZ 
T183SSR;. ASCIZ 
T18CMP{ .ASCIZ 
.EVEN 



.ASCIZ 'Static Transport Bus Interface' 

'WRITE CHARACTERISTICS Failed' 

'WRITE SUBSYSTEM CWrite Misc) Failed' 

'WRITE SUBSYSTEM (Read Status) Failed' 

'Transport Bus Interface Signals NOT Negated After Unit 7 Selected' 



j SETUP 
j - 
V18SRUJ 



T18PK2 PACKET FOR READ STATUS 



SAVRFG 

MOV 

MOVB 

CLRB 

RTS 



0T18DT2.R0 

*PW.RDSTATUS,(RO)* 

CRO) 

PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

{WRITE SUBSYSTEM DATA BUFFER 

j STORE READ STATUS COMMAND IN BSELO 

i CLEAR BSEL1 

I RETURN 



i SETUP T18PK2 PACKET FOR WRITE MISC. 



T18SMISC. 




SAVREG 




MOV 


*T18DT2,R0 


MOVB 


OPW.WMISC(RO)* 


MOVB 


*r1S.EXT ( (R0) 


RTS 


PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

{WRITE SUBSYSTEM DATA BUFFER 

I STORE WRITE MISCELLANEOUS IN BSt.LO 

; STORE INVERT EXTENDED FEATURES IN BSEL1 

{RETURN 

i ♦ 

jSet first 8 words of expd message bu f fer - to recv since not testing 

i Set unused bits in Read Status expd ^qu*l rcvd 

i - 



K13 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17j02 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 



SEQ 166 



3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3757 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

3784 

3785 

3/86 

3787 

3788 

3789 

3791 

3793 

3794 



051310 
051310 
051314 
051320 
051324 
051326 
051330 
051332 
051336 
051342 
051350 
051352 
051354 
051356 
051360 
051364 
051370 
051374 
051400 
051404 
051410 

051412 



051420 
051420 
051422 
051424 
051426 

051430 
051430 
051432 
051434 
051436 
051440 



051442 
051442 
051444 
051446 
051450 
051452 
051454 
051456 
051460 
051462 
051464 



051466 
051470 
051470 



012702 
012703 
012700 
012322 
005300 
003375 
012701 
013712 
013762 
011300 
041100 
040012 
050012 
016300 
046100 
040062 
050062 
105062 
105063 
000207 



10OO04 
051430' 
000000 
000012 



051442' 

OOOOOO 

000024 

OOOOOO 

000007 



OOOOOO 
OOOOOO 

ooooco 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



050706 

051442' 

000010 



050702' 
O50732 1 
050734' 000002 



000002 
000002 
000002 
000002 
000003 
000003 



T18SETEXP: 
MOV 
MOV 
MOV 

5$ j MOV 

DEC 
BCT 
MOV 
MOV 
MOV 
MOV 
BIC 
BIC 
BIS 
MOV 
BIC 
BIC 
BIS 
CLRB 
CLRB 
RTS 

.BLKB 



0T18EXP.R2 

OT18BFR.R3 

08. t R0 

CR3)*,CR2)» 

RO 

5$ 

OTIBMSK.RI 

T18XS,(R2) 

T18XSf2,2CR2) 

CR3).R0 

(Rl).RO 

R0.CR2) 

R0.CR2) 

2CR3),RC 

2CRD.R0 

R0.2CR2) 

R0.2CR2) 

3CR2) 

3CR3) 

PC 

10-<.-TSV2£7> 



{WRITE CHARARTERISTICS COMMAND PACKET 



T18PACKET: 




.WORD 


100004 


.WORD 


T18DATA 


.WORD 





.WORD 


10. 


TlSDATAt 




.WORD 


T18BFR 


. WORD 





.WORD 


20. 


.WORD 





.WORD 


7 


T18BFR: 




.WORD 





.WORD 





.WORD 





.W03D 





.WORD 





.WCRO 





. WORD 





.WORD 





.WORD 





.WORD 






GET EXPO 

GET READ STATUS RECV BUFTER 

SET FIRST 8 WORDS EXP-RECV 

SET EXPD-RECV 

DONE FIRST 8 WORDS? 

BR IF NO 

GET UNUSED BIT MASK 

SETUP BASE EXPECTED BYTE 1/0 

SETUP BASE EXPECTED BYTE 2 

GET RECV BYTE 1 AND BYTE 

CLEAR ALL BUT UNUSED 

CLEAR UNUSED IN EXP 

SET UNUSED EXPD-RECV FOR COMPARE 

GET P.ECV BYTE 2 

CLEAR ALL BUT UNUSED 

CLEAR UNUSED IN EXPO 

SET UNUSED EXPD-RECV FOR COMPARE 

CLEAR EXPD BYTE 3 CLAUSED) 
i CLEAR RECV BYTE 3 (UNUSED) 
; RETURN 



I COMMAND PACKET FOR Tils'! 

I WRITE CHARACTERISTICS COMMAND. WITH ACK 

{ADDFESS 0^ CHARACTERISTICS BLOCK 

i MESSAGE PACKET MINIMUM SIZE 

{CHARACTERISTICS DATA BLOCK 
t ADDRESS OF MESSAGE BUFKEfl 

i LENGTH OF MESSAGE BUFFER 

sESS.ENB.EAI.ERI 

j SELECT RESERVED UNIT 7 



{MESSAGE BUFFER 

j MESSAGE TYPE 

{DATA FIELD LENGTH 

jRBPCR 

jXSTO 

jXSTl 

;XST2 

;X5T3 

jXST4 

j READ 

j READ 



(ALWAYS PRESENT FOR WRITE SUBSYSTEM 
STATUS BfTE 1/0 RETURNED 
STATUS BYTE 2 



{WRITE SUBSYSTEM READ STATUS COMMAND PACKET 



J 



T16PK2j 



.BLKB 



10-<.-TSV267> 



100006 



.WORD P.WRTSUBJP.ACK 



{WRITE SUBSYSTEM WITH ACK 



L13 



TSV5 - HARDWARE 


TESTS MACRO 
TRANSPORT BUS 


TEST 7: STATIC 


3795 05147? 


051500' 


3796 051471 


000000 


3797 051476 


000010 


3798 




3799 051500 




3800 051500 


000 


3801 051501 


000 


3802 051502 


000000 


3803 051504 


000000 


3804 




3805 




3806 053 506 




051506 




051506 


104401 


3807 




3808 




3800 




36.10 




3811 




3812 




3813 




3814 




3815 




3816 




3817 




3318 




3819 




3820 




3821 




3822 




3823 




3824 




3825 




3826 




3827 




3828 




3829 051510 




051510 




3834 051510 


012700 . •■' J 


3835 051514 


004 737 0. -S 


3836 051520 


012737 OCv. v 


3837 051526 




3838 




3639 




3840 




334 1 




3842 




364 ^ 




3044 




3845 




3846 




384 I 




3848 




3849 




3850 




3851 




3852 





Ml 113 01 -FEB -84 
INTERFACE TEST 


17 {02 






.WORD 
.WORD 
.WORD 


T18DT2 



8. 


T18DT2: 


.BYTE 
.BYTE 
.WORD 
.WORD 









SEQ 167 



j LOW ADDRESS OF DATA BLOCK 
i HIGH ADDRESS OF DATA BLOCK 
j BUFFER EXTENT 

j DATA BLOCK 

jBSELO 

jBSELl 

t SEL2 

l DATA 



ENDTST 



L 10065 j 



TRAP 



C$ETST 



.SBTTL TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 

TEST DESCRIPTION: 

This test verifies the controller's Transport Bus 
drivers, receivers, and signal loopback logic. Note 
that tlx- Static Transport uus test must have run 
corrc -»;«.»/ for this test to provide meaningful results. 

TES1 S T ':PS: 

REPEAT rOK ..OOPCNT 

-■ Loopback Control signals test 

- Loopback Read/Write signals test 

- Loopback Write Strobe test 

- Loopback Read Strobe test 



, -- 



BEGiN 




Oo :-.. ^test 


1 


D«. S« , «sfc 


2 


Ti: U- Ust 


3 


;:<> ? obtest 


4 



EN< : 



00?.2l6 



M-OOPi 



BGNTST 

jr,R 

MOV 



0TST19ID,R0 
PCTSTSETUP 
010, .LOOPCNT 



;ASCII MESSAGE 



.8: : 
TO IDENTIFY TEST 



;D0 INITIAL 
; PERFORM 10 



TEST SETUP 
ITERATIONS 



.SBTTL TEST 8: SUBTEST Is LOOPBACK CONTROL SIGNAL TEST 



Tl-ri 8: SUBTEST 1: 

SUBTEST DESCRIPTION: 

This subtest verifies the Transport Control loopback 
path can transmit and receive correctly. The 
control signals are all loopback signals other 
than the read/writo data (IW<7jO> and IR<7:0>). 

TEST STEPS: 



M13 



TSV5 - HARDWARE 


TESTS 


MAChO M 


TEST 8: 


SUBTEST X: LOOPBACK CO 


3853 








3854 








3855 








3856 








3857 








3858 








3859 








3860 








3861 








386? 








3863 








3864 








3865 








3866 








3867 








3868 








3869 








38/0 








3871 








3872 








3873 








3874 








3875 








38/6 








3877 








3878 








3879 








3880 








3881 








3882 








3883 








3884 








3885 








3886 


051526 

051526 








051526 


104402 




388 7 








3888 








3889 


051530 






3890 


051530 


004 737 


015604* 


3891 


051534 


103405 




389^ 


051536 


010001 




3893 


051540 








051540 


104455 






051542 


001440 






051544 


003646' 






051546 


011644* 




3894 








3895 


051550 


005037 


002222* 


3896 


051554 


012/04 


062050' 


3097 


051560 


004737 


010472' 


3898 


051564 






3899 


051600 


103407 




3900 


051602 


010001 




3901 


051604 






3902 


051604 








051604 


104455 





lyse-fist 



7:02 



SEQ 168 



Th 

i; 

or 
CI 



t select 



Wr 
Do 
If 

Do 
Do 
Do 
Do 
( 



e loopback signals IF AD, ITAD0,ITAD1 ore the tape urn 
ner>. Since rc:rrved unit 7 must remain selected these signals 
e always set lew. This further means the signals they drive 
SPEED, IRDY.IONL"^ are only tested in the low state. 

ite to TSSR register to soft initialize the controller 
WRITE CHARACTERISTICS to check for Extended Features Switch 
Extended Features Hardware Switch Clear then: 

Do Write Subsystem Write Miscellaneous to Set Extended Features, 
WRITE CHARACTERISTICS to select reserved un i t 7 and setup BUFFER 
a Write Subsystem WRITE NPR to set tape direction out and Loopback 
Write Subsystem Write Control to CLEAR loopback signals group 1. 
Write Subsystem Write Format to CLEAR loopback signals group 2. 



Do 
Do 
If 



... ■ -— — — — t ___.-. ....__ ._, — _. — __^.. .. . _„_,„_„... _.„.._._ - m . v ^.f^ ,_, 
the loopback signals have to be cleared here due to the flip-flops 
that are set on a 1 to transition ( IHER t IFMK , ICER)) 

a Write Subsystem Write Misc to Reset Tape Status F-FLQPS 

a Write Subsystem READ STATUS 

all Tape Status 2 (ICER. IFMK, IHER) flip-flop 
signals N0T*0 Then Print Error 



REPEAT FOR 
BEGIN 
Do 
Do 
Do 
If 
Do 
Do 
If 



ALL TEST PATTERNS IN TSTBLK TABLE 



END 



Write Subsystem Write Control to Drive loopback signals group 1 
Write Subsystem Write Format to Drive loopback signals group 2. 
a Urite Subsystem READ STATUS 

loopback data NOT- data sent Then Prii\t Error 
a Write Subsystem Write Misc to Reset Tape Status F-FLUPS 
a Write Subsystem READ STATUS 
all Tape Status 2 ( ICER , IFMK , IHER) flip-flop 
signals N0T»0 Then Print Error 



BGNSUB 



;//////////// BEGIN SUBTEST ////////// 

TB.l: 

TRAP CJBSUB 



5$; 



Write to TSSR register to soft initialize the controller 



JSR 
BCS 
MOV 
ERRDF 



PC.S0F1NIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



; URITE TO TSSR TO SOFT INITIALIZE 
5 BR IF SOFT 1NIT OKAY 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL DURING INIT 

TRAP 
.WORD 

.word 

.WORD 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 



ClfcRDF 
800 

SFIERR 
SFIMSG 



10$ 



12S 



CLR FATFLG 

MOV *T19PACKET,R4 

JSR PC, WRTCHR 

FORCERROR 125 

BCS lb* 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO , T 19SSR , Pl< 1 SSR 



{CLEAR FATAL ERROR FLAG 

{GET THE ADDRESS OF COMMAND PACKET 

}D0 WRITE CHARACTERISTICS COMMAND 

i3S0F0RCE ERROR IF FORCER a l 
{ BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CJERDF 



N13 



TSV5 - HARDWARE TESTS MACRO MU13 OWEB-84 17:02 
TEST 6 j SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 



SKQ 169 



3903 
3904 

3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 



3919 
3920 

3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 



3930 
3931 

3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 



051606 
051610 
051612 
051614 
051620 
051620 



051622 
051626 
051534 
051636 
051642 
051646 
051652 
051656 
051672 
051674 
051676 
051676 
051676 
051700 
051702 
051704 
051706 
051712 
051712 

051714 
051720 
051724 
051730 
051744 
051746 
051750 
051750 
051750 
051752 
051754 
051756 
051760 
051764 
051764 

051766 
051772 
051776 
052002 
052006 
052012 
052016 
052032 
052034 
052036 
052036 
052036 
052040 



001441 

057763' 

011656' 

005237 002222' 

104406 



012701 062072' 

032761 000200 000012 

001026 

004737 061722' 

012704 062220' 

010465 000000 

004737 016146' 

103407 
010001 



104455 
001442 
060020 
011656 
005237 



IS*: 



104406 

005037 
012704 
004737 

103407 
010001 



104455 

001443 

057763* 

011656' 

005237 

104406 

012 700 
052700 
004737 
012704 
010465 
004 737 

10340 7 
010001 



104455 
001444 



002222' 



002222' 
062050' 
010472' 



002222 



000100 
000040 
061562' 
062220' 

000000 
016146' 



22$: 



30$: 



42$ 



50$ 



62$: 



INC 
CKLOOP 



FATFLG 



{SET FATAL ERROR FLAG 
i LOOP ON ERROR, IF FLAG 



If Extended Features 
Do Write Subsystem 
MOV 0T19BFR.R1 
BIT 0X2.EXTF.XST2CR1) 
BNE 30$ 
JSR PC t T19SEXr 
MOV 0T19PK2.R4 
MOV R4,TSDB(R5) 
JSR PC.CHKTSSR 
FORCERROR 22$ 
BCS 30$ 
MOV R0.R1 
NEXT.ERRNO 
ERRDF ERRN0.T192SSR, PKTSSR 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



801 

T19SSR 

PKTSSR 



C$CLP1 



Extended Features. 
ADDRESS 

SWITCH SET? 



Hardware Switch Clear then 
Write Miscellaneous to Set 

{MESSAGE BUFFER 

{EXTENDED FEATURES 

{BR IF YES 

{SETUP PACKET FOR WRITE MISC INVERT 

{GET WRITE SUBSYSTEM COMMAND PACKET 

{ SFT THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

{SQOFORCE ERROR IF FORCER- 1 

jBR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



sSET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



Do WRITE CHARACTERISTICS 

CLR FATFLG 

MOV #T19PACKI=T,R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT.ERRNO 

EPRDF ERRN0.T19SSR, PKTSSR 



SET 
TRAP 



C$ERDF 
802 

T192SSR 
PKTSSR 



C$CLP1 



to select reserved unit 7 

CLEAR FATAL ERROR FLAG 

GET THE ADDRESS OF COMMAND PACKET 

DO WRITE CHARACTERISTICS COMMAND 

jSQDFORCE ERROR IF FORCER-l 
BR IF CARRY SET CGUOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 


FATFLG 


CKLOOP 




Do a Wr 


I tc Subsyst*: 


MOV 


ONP.O'JT.RO 


BIS 


$NP.L00P.RO 


vJSR 


PC.T19SNPR 


MOV 


0T19PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


FORCERROR 62$ 


BCS 


70$ 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


803 


.WORD 


T19SSR 


.WORD 


PKTSSR 


LAG 




FLAG SET 




TRAP 


CiCLPl 


on out and Loopback 



MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T194SSR, PKTSSR 



;SET FATAL ERROR F 
;L00P ON ERROR, ir 

n WRITE NPR to set tape direction 

SET TAPE DIRECTION OUT 

SET LOOPBACK ENABLE 

SETUP T19PK2 FOR WRIlt NPR 

GET URITE SUBSYSTEM COMMAND PhCKLT 

SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

iOOOFORCE ERROR IF FORCER »i 

{BR IF CARRY SET C GOOD RETURN) 

{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



FAILED TO SET 

TRAP C it' RDF 
.WORD 804 



B1.4 



TSV5 - HARDWARE TESTS MACRO MHU Ol-FEB-84 17|02 
TEST S; SUBTEST lj LOOPBACK CONTROL SIGNAL TF'jT 



3944 
J945 

3946 
394 7 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 



3963 
3964 

3965 
3966 
396 7 
3968 
3969 
3970 
3971 
3972 
3973 
3974 



3975 

3976 

397/ 
3978 
3979 
3960 
3981 
3982 
3983 
39ft4 
39",5 
39d6 



052042 
052044 
052046 

052052 
052052 



052054 
052056 
052062 
052066 
052072 
052076 
052102 
0521U6 
052112 
052126 
052130 
052132 
052132 
052132 
052134 
052136 
052140 
052142 
052146 
052146 
052150 
052152 
052156 
052162 
052166 
052172 
052206 
052210 
052212 
052212 
052212 
052214 
052216 
052220 
052222 
052226 
052226 

052230 
052234 
052240 
052244 
052250 
052264 
052266 
0522 70 
0522 70 
0524 7Q 



060131* 
01.1656* 

005237 

104406 



005000 
042700 
042700 
042700 
0O4737 
012704 
010465 
004737 

103407 
010001 



104455 
001*145 

060303* 
011656' 

005237 

104406 
005000 
0O4737 
012704 
010465 
0O4737 

103407 
010001 



104455 

001446 

060352' 

011656' 

005237 

104406 



002222' 



000200 

000100 

000040 

061662' 

062220' 

000000 

016146' 



002222 



061702' 
062220' 
OOOOOC 
016146' 



002222' 



0O4737 061540* 

012704 062220 

010465 000000 

004 737 016146* 

10340 7 
010001 



1Q445& 



701s 

l 
l 



82$: 



90tj 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR r LAG 
lLOOP ON ERROR, If FLAG 



.WORD 
,WOKD 



SEQ 1/0 



T194S5R 
PKTSSR 



Writ* 
Writ* 



Do Writa Subayatam 
Do Writs Subaystam 
( tH« loopeacW 
that ara sat 
CLR RO 

BIC #WC.IFAD,RO 

BIC VWC.IOTAD.RO 

BIC ♦WC.IITAD.RO 

JSR PC.U9WCTL 

MOV #T19PK2,R4 

MOV R4>TSDB(R5) 

JSR PCCHKTSSR 

FORCERROR 82* 

BCS 901 

MOV R0,R1 

NEXT,ERRN0 

ERRDF ERRN0.T1975SR. PKTSSR 



SET 

T5AP CICLP1 
Control to CLEAR loopback signal* Qroup 1. 
Format to CLEAR loopback aifjnal* uroup 2, 
signals hav# to ba claarad hara dua to tha flip-flops 
on a 1 to transition ( IHER.IFMK.ICER)) 

, WRITE O'S 

a IF AD MUST ALWAYS *0 
jITADO MJST ALWAYS -0 
lITADl MUST ALWAYS -0 
iSEHJP PACKE T FOR WRITE CONTROL 
|GET WRITE SUBSYSTEM COrtWr*> PACKET 
iSET THE PACKET AfcOWSS TO EXECUTE 
iWAIT FOR SSR TO SET 

lfc»OF0«CE ERROR U FORCER"! 
iBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



INC 


FATFLG 


CKLOOP 




CLR 


RO 


JSR 


PC.T19WFMT 


MOV 


♦T19PK2.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


FORCERROR 102$ 


BCS 


1 10» 


MOV 


R0.R1 


NCXT,ERRNO 



i SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIERDF 
805 

T197SSR 
PKTSSR 



CICLP1 



l SET FORMAT DRIVE DATA-0 
jSETUP PACKET FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET AOORESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET ( GOOO RETURN) 
iS^Vfe CONTENTS OF TSSR 



102»j ERRDF ERRN0.U98SSR, PKTSSR 



jDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 





INC FATFLG 


1101! 


CKLOOP 


1 


Do a Writ* Subayatam Wr i ta M 
JSR PC.T19RSFIF 






MOV #T19PK2.R4 




MOV R4,TSDfl(R5) 




JSR PC.CMKTSSR 




FORCERROR 1221 




BCS 1301 




MOV R0.R1 




NExT.ERRNO 


UZl\ 


ERRQF ERRN0,Ti92SSR» PKTSSR 



l SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



SET 
TRAP 

f -Flops 

MISC Raaat 



CIERDF 
806 

T198V;H 
PKIdSR 



ClCLPl 



to Raaat Tapa Status 

iSETUP PKT FOR WRITE 

iGET WRITE. SUBSYSTEM COnMAMO PACKET 

iSET THE PACKET ADDRESS TO EXECUTE 

iWAIT TOR SSR TO SET 

iWJOFORCE ERROR IF FORCER-i 
iBR IF CARRY SET ((,000 RETURN) 
jSAvE CONTENTS OF I'jSR 



Tapa Status F. FLOPS 



iDEVXCE FATAL SSR 



FAILtU '0 SET 

TRAP CltHOt 



'$ ■sT^mAVtoopmwmii. gyrc-tist 



CI 4 





0522 72 


001447 






052274 


060020* 






052276 


011656' 




3967 


052300 


005237 


002222' 


5988 


052304 








052304 


104406 




3989 








3990 








3991 








A992 


052306 


004737 


061520' 


3993 


052312 


012704 


062220' 


3994 


052316 


010465 


000000 


3995 


052322 


004737 


016146' 


3996 


052326 






3997 


052342 


103407 




3998 


052344 


010001 




3999 


052346 






4000 


052346 








052346 


104455 






052350 


001450 






052352 


060064' 






052354 


011656' 




4001 


052356 


005237 


or,;- ^22' 


4002 


052362 








052362 


104406 




4C03 


052364 


00473/ 


061 760' 


4004 


052370 


012701 


057622' 


4005 


052374 


012702 


062112' 


4006 


052400 


011211 




4007 


052402 


042711 


002000 


4008 


052406 


042711 


001000 


4009 


052412 


042711 


O00400 


4010 


052416 


016261 


000002 


4011 


052424 


005000 




4012 


052426 


012701 


0620 7 2' 


4013 


0524 32 


012702 


057602' 


4014 


0524 36 


012703 


0OO024 


4015 


052442 


004737 


011310' 


4016 


052446 






4017 


052456 


103404 




4018 


052460 






4019 


052460 








052460 


104456 






052462 


0014''- 1 






052464 


0610. V 






052466 


0126/4' 




402C 


0524 70 








0524 7o 


104406 




4021 








4022 


0524 72 


005037 


05 7534' 


4023 


0524 76 


012703 


002 752' 


4024 


052502 


012300 




4025 


052504 


010337 


002316' 


4026 


052510 


042 700 


000200 


4027 


052514 


042700 


000100 


4028 


052520 


0*2 700 


000040 


402^ 


0525?* 


010037 


002312* 



130$ 

I 
I 
I 



132$ 



140$ 



000002 



1521 1 



7 {02 




SEQ 171 




.WORD 
.WORD 


807 
T192SSR 




.WORD 


PKTSSR 


INC FATFLG 


(SET FATAL ERROR FLAG 




CKLOOP 


jLOOP ON ERROR, IF FLAG SET 






TRAP 


CICIP1 


Do a Writ* Subsystem 


READ STATUS 




If all Taps Status 2 


(ICER.IFMK.IHER) flip-flop 




signals NOT-0 Than 


Print Error 




JSR PC,U9SRD 


jSETUP PACKET FOR READ STATUS 




MOV #T19PK2,R4 


iGET WRITE SUBSYSTEM COMMAND PACKET 


MOV R4,TSD6(R5) 


tSET THE PACKET ADDRESS TO EXECU1E 


JSR PC.CHKTSSR 


iWAIT FOR SSR TO SET 




FORCERrtOR 132$ 


iMOFORCE ERROR IF FORCER- 1 


BCS 140$ 


,BR IF CARRY SET (GOOO RETURN) 




MOV RO.Rl 


iSAVE CONTENTS OF TSSR 




NEXT. ERRNO 







ERRDF ERRNO , T 193SSR , PKTSSR 



iDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
808 

T193SSR 
PKTSSR 



INC 


FATFLG 


iSET FATAL ERROR FLAG 




CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


JSR 


PC, T19SETEXP 


iSET WORDS 0-7 EXPD-RECV (NOT 


TESTING) 


MOV 


♦T19EXSTA.R1 


iGET EXPECTED READ STATUS 




MOV 


#T19BFSTA,R2 


iGET RECV REAO STATUS 




MOV 


(R2).CR1) 


iSET EXPO WORD *8 - RECV TEMP 




8IC 


♦S1.ICER,(R1) 


iSET EXPO ICER -0 




BIC 


•Sl.IFMK.CRl) 


iSET EXPO irm -0 




BIC 


•Sl.IHER.(Rl) 


iSET EXPO IHER -0 




MOV 


2(32), 2CR1) 


I SET EXPO WORD #9 - RECV (NOT 


TESTING) 


CLR 


RO 


jMlGM RECV AOORESS FOR CKMSG2 




MOV 


•T19BFR.R1 


jLOW RECV ADORESS FOR CKMSG2 




MOV 


♦T19EXP.R2 


lEXPD ADORESS 




MOV 


•20. ,R3 


iNUMBER OF BYTES TO COMPARE 




JSR 


PCCKMSG2 


jEXPD EQUAL RECV? 




FORCERROR 152$,N0TSSR 


i&flO 




BCS 


160$ 


iBR IF YES 




NEXT. ERRNO 






ERRHRD 


ERRNO, T197CMP.MSGL00P 


iREPORT ERROR 





160$: CKLOOP 




I REPEAT FOR 


ALL TEST PATTERNS 


CLR 




T19PREV 


MOV 




♦TSTBLK.R3 


200$ i MOV 




(R3). ,R0 


MOV 




R3.TSTP1R 


b:c 




♦WC.If AD.RO 


BJC 




♦WC.IOTAD.RO 


Brc 




awe. riTAD,RQ 


MOV 




RQ # DATA 



jLOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SFT 

TRAP 



IN 



TSTBLK TABLE 

jINIT 1 TRANSITION FLAG 
jGET FIRST PATTERN ADDRESS 
jGET A TEST PATTERN 
jSAVE POINTER INTO TSTBLK 
i IFAD MUST ALWAYS *0 
j I MOD MUST ALWAYS -0 
lITAQl h*.J$T ALWAYS »0 
iSET DATA PATTERN 



CIERHRD 
809 

T19 7CMP 
MSGLOOP 

CtCUH 



w ^mh r W£o p%m o cmfa. syra*-^ 7 * 02 



1)14 



SFQ UZ 



4030 








4031 








4032 


052530 


013700 


002312' 


4033 


052534 


004737 


062004' 


4034 








4035 


052540 


004737 


061662' 


4036 


052544 


012704 


0622^0' 


4037 


052550 


010465 


000000 


4038 


052554 


004737 


016146* 


4039 


052560 






4040 


052574 


103407 




4041 


0525 76 


010001 




4042 


052600 






4043 


052000 








052600 


104455 






052602 


001452 






052604 


060303' 






052606 


011656' 




4044 


052610 


005237 


002222' 


4045 


052614 








052614 


104406 




4046 








4047 








4048 








4049 


052616 


01370O 


002312* 


4050 


052622 


004737 


062004* 


4051 


052626 


000300 




4052 


052630 


004737 


061702' 


4053 


052634 


012704 


062220' 


4054 


052640 


010465 


000000 


4055 


052644 


00^737 


016146* 


4056 


052650 






4057 


052664 


10340 7 




4058 


052666 


010001 




4059 


052670 






4060 


052670 








0526 70 


104455 






052672 


001453 






052674 


060352' 






0526 7b 


011656* 




4061 


052 700 


005237 


002222' 


4062 


052 704 








052704 


104406 




4063 








4064 


C52706 


00^737 


061520' 


4065 


052712 


012704 


062220' 


4066 


052716 


010465 


OOOOOO 


4067 


052 722 


004737 


016146* 


4068 


052 726 






4069 


052742 


103407 




40/0 


05? 744 


010001 




4071 


052746 






4072 


052 746 








052 746 


104455 






052750 


001454 






052/52 


060064' 






052/54 


011656' 





iSSO 



212$: 



220$: 



(SOD 



252$: 



Do Writ* Sufcivftfm Wr 
CALL T19CNVT TO SETUP 
MOV DATA.RO 
JSR PC.T19CNVT 



JSR PC.T19WCTL 

MOV #T19PK2,R4 

MOV R4,T$DB(R5) 

JSR PC.CMKTSSR 

FORCERROR 212$ 

BCS 220$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T197SSR, PKTSSR 



jGET TEST PATTERN 

I CONVERT PATTERN TO CONTROL DRIVE MASK 

iRO CONTAINS WRITE CONTROL DATA MERE 

»SETlff> PACKET FOR WRITE CONTROL 

iGET WRITE SUBSYSTEM COMMAND PACKET 



iSEV TME PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iWJOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET CGOOO RETURN) 
jSAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
810 

T197SSR 
PKTSSR 



C$CLP1 



Do Wrlt« Sob*y»t*m Writ* Format to Dr i v* loopbacW signal* group 2. 

CALL T19CNVT TO SETUP WRITE CONTROL PATTERN 

jGET TEST PATTERN 

iCONVERT PATTERN TO FORMAT DRIVE MASK 

lURITE FORMAT DATA RETURNED IN HIGH BYTE 

iSETUP PACKET FOR WRITE FORMAT 

jGET WRITE SUBSYSTEM COMMAND PACKET 

l SET THE PACKET ADORFSS TO EXECUTE 

iWAIT FOR SSR TO SET 

jOfiDFORCE ERROR IF FORCER-1 
jBR IF CARRY SET CGOOO RETURN) 
jSAVE CONTENTS OF TSSR 



MOV 


OATA.RO 


JSR 


PC.T19CNVT 


SWA6 


RO 


JSR 


PC.U9WFMT 


MOV 


♦T19PK2.R4 


MOV 


R4,TSD6(R5) 


JSR 


PC.CMKTSSR 


FORCERROR 232$ 


BCS 


240$ 


MOV 


R0.R1 


NEXT 


ERRNO 



232$: ERRDF ERRNO, U98SSA, PKTSSR 



l OH. VICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



240$: 


INC FATFLG 
CKLOOP 


t 


Do a Writ* Sub«y*t«m 
JSR PC,T19SftD 
MOV GT19PK2.R4 
MOV R4,TSD6(R5) 
JSR PC.CMKTSSR 



I SET FATAL ERROR FLAG 
tLOOP ON ERROR, IF FLAG 



READ STATUS 



SET 
TRAP 



C$ERDF 

fill 

T198SSR 

PKTSSR 



C$CLP1 



FORCERROR 252$ 

BCS 260$ 

MOV R0.R1 

Nf XT. ERRNO 

ERRDF ERRNO, T193SSR, PKTSSR 



icF.TUP PACKET FOR READ STATUS 
iG^T WRITE SUBSYSTEM COMMAND PACKET 
tSET TME PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jttfiDFORCE ERROR U FORCtiR-1 
,BR IF CARRt SET CGOOO RETURN) 
iSAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



FAILED TO SFT 




TRAP 


C$rhDF 


.WORD 


812 


.WORD 


T W5SSR 


.WORD 


PKTSSR 
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TSV5 - HARDWARE 


usrs 


MACRO M1115 


TEST 8; 


SUBTEST 1: L00PBACK CONTROL S. 


4075 


052 756 


005237 


002222' 


4074 


052762 








052762 


104406 




4075 








4076 


052 764 


004737 


061760' 


4077 


052770 


on?oi 


057622* 


4078 


052774 


012702 


062112' 


4079 


053000 


013711 


002312' 


4080 


053004 


013700 


05 7534' 


4081 


053010 


013703 


002312' 


4082 


053014 


012704 


000400 


4083 


053020 


040411 




4084 


053022 


030400 




4085 


053024 


001403 




4086 


053026 


030403 




408 7 


053030 


001001 




4088 


053032 


050411 




4089 


053034 


012704 


001000 


4090 


053040 


0404 11 




4091 


053042 


030400 




4092 


053044 


001403 




4093 


053046 


030403 




4094 


053050 


001001 




4095 


053052 


050411 




4096 


0530S4 


012704 


002000 


4097 


053060 


040411 




4098 


053062 


030400 




4099 


053064 


001403 




4100 


053066 


030403 




4101 


053070 


001001 




4102 


053072 


050411 




4103 


053074 


011100 




4104 








4105 


053076 


012704 


004000 


4106 


053102 


050400 




4107 


053104 


030437 


057534' 


4108 


053110 


001403 




4109 


053112 


03O403 




4110 


053114 


001401 




4111 


053116 


040400 




4112 


053120 


052700 


040000 


4113 


053124 


052 700 


020000 


4114 


053130 


042700 


100000 


4115 


053134 


032712 


10O000 


4116 


053140 


001402 




4117 


053142 


052 700 


1OO000 


4118 


053146 


010011 




4119 


053150 


016261 


000002 000002 


4120 


053156 


005000 




4121 


053160 


012701 


062072' 


4122 


053164 


012702 


05 7602* 


4123 


053170 


012703 


000024 


4124 


053174 


004737 


011310' 


4125 


053200 






4126 


053210 


103404 




4127 


053212 






4128 


053212 







FEB-84 I7s0i 
SIGNAL TEST 



SEQ 173 



260$; 

J 



INC 
CKL.OOP 



FATFLG 



If loopback 6mtm NOT- data ««nt 

JSR PC.T19SETEXP 

MOV 0T19EXSTA.R1 

MOV «T196FSTA,R2 

MOV DATA, CRD 

MOV U9PREV.R0 

MOV DATA.R3 

MOV •S1.IHER,R4 

BIC R4.CR1) 

BIT R4,R0 

BEQ 275$ 

BIT R4 t R3 

BNE 275$ 

BIS R4.CR1) 

2751: MOV 0Sl.IFMK.R4 

BIC R4.CR1) 

BIT R4.R0 

BEQ 280$ 

BIT R4.R3 

BNE 260$ 

BIS R4,(Ri) 

280*j MOV «S1.ICER|R4 

BIC R4,(R1) 

BIT R4.R0 

BEQ 285$ 

BIT R4.R3 

BNE 265$ 

BIS R4.CR1) 

285$: MOV (Rl).RO 
l If pr#vlou« IIDENT-1 *nd cur rtrv 

MOV tSl.IIDENT.R4 

BIG R4.R0 

BIT R4.T19PREV 

BEQ 288$ 

BIT R4.R3 

BEQ 268$ 

BIC R4.R0 

288$: BIS 4S1.I2RES.R0 

BIS *S1.IIRES,R0 

BIC *S1 .PARERR.RO 

BIT •Si.PARERR.CR2) 

BEQ 2905 

BIS *S1. PARERR.RO 

290$ j MOV RO.(Rl) 

MOV 2(R2).2(R1) 

CLR RO 

MOV 0T19BFR.R1 

MOV 0U9EXP.R2 

MOV *20.. R3 

JSR PC.CKMSG2 

TORCERROh 302$ .NOTSSP 

BCS 3i0$ 

NEXT.FHRNP 
302 $ s ERRHRD ERRKO , i i*?>*crip , MSULUUP 



SET 

TRAP CICl.Pl 

Th#n Print Error 
SET WORDS 0-7 EXPD-RECV (NOT TESTING) 
GET EXPECTED READ STATUS 
GET RECV READ STATUS 
SET EXPD WORD *8 TO TEST DATA FIRST 
GET PREVIOUS DATA PATTERN 
GET CURRENT PATTERN 
SETUP IHER EXPECTED 
SET EXPO IrCR -0 
PREVIOUS -1? 
BR IF NO 
CURRENT -0? 
BR IF NO 
SET EXPO IHER -1 



SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 



SETUP IFMK EXPECTED 



SET EXPD IFMK 
PREVIOUS -1? 
BR IF NO 
CURRENT -0? 
BR IF NO 
SET EXPD IFMK 



'0 



1 



SETUP ICER EXPECTED 



ICER 
-1? 

-O? 

ICER - 
WORD 
1 th«n 



'0 



EXPD* else 1 



1 



SET EXPO 
PREVIOUS 
BR IF NO 
CURRENT 
BR IF NO 
SET EXPD 
GET EXPD 
•• IIOENT 
IIDENT 

ASSir^. EXPD-1 
PREVIOUS IIDFNT 
F.R if NO 

IS UNRENT IIDENT 
BR IF NO 
SET EXPD-0 

IRESV2 EXPD ALWAYS-1 
IRESV1 EXPD ALWAYS-1 
IGNORE PARERR 
IS PAREHR SET IN RECV? 
BR IF NO 
SCT IN EXPO 

SETUP FINAL EXPD IN WORD *6 
SET EXPD WORD 09 • RECV (NOT 
HIGH RECV ADORESS FOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
■yPD ADDRESS 

... .^R OF BWES TO COMPARE 
EXPO EQUAL RECV7 
QSO 
BR IF 



1? 



TESTING) 



YES 



jREPORT ERROR 
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TEST 8: SUBTEST 1: lOOPBACK CONTROL SIGNAL TEST 



SEQ 174 





053212 


104456 






053214 


001455 






053216 


061111' 






053220 


012674 




4129 


053222 








053222 


104406 




4130 








4131 


053224 


004 73V 


061540' 


4132 


053230 


012704 


062220' 


4133 


053234 


010465 


000000 


4134 


053240 


004737 


016146' 


4135 


053244 






4136 


053260 


103407 




4137 


053262 


010001 




4138 


053264 






4139 


053264 








053264 


104455 






053266 


001456 






053270 


060020' 






053272 


011656* 




4140 


053274 


005237 


002222* 


4141 


053300 








053300 


104406 




4142 








4143 


05330? 


0O4737 


061520' 


4144 


053306 


012704 


062220' 


4145 


053312 


010465 


000000 


4146 


053316 


0O4737 


016146' 


4147 


053322 






4148 


053336 


103407 




4149 


053340 


010001 




4150 


053342 






4151 


053342 








053342 


104455 






053344 


001457 






053346 


060064' 






053350 


011656' 




4152 


053352 


005237 


002222* 


415i 


053356 








053356 


104406 




4154 


053360 


0O4737 


061760* 


4155 


053364 


012701 


057622' 


4156 


053370 


012702 


062112 


4157 


053374 


011211 




4158 


0533 76 


042711 


002000 


4159 


053402 


042711 


001000 


4160 


053406 


042711 


00O4O0 


4161 


053412 


016261 


000002 


4162 


053420 


005000 




4163 


053422 


012701 


062072 


4164 


053426 


012/02 


057602 


4165 


053432 


012703 


000024 


4 166 


0534 36 


004 73 7 


011310 


4167 


053442 






4168 


053452 


103404 




4169 


053454 






4170 


053454 







310*{ 


CKLOOP 


I 


Do a Writ* Sub«yat«m Writ* M 




JSR PC.T19PSFIF 




MOV *T19PK2,R4 




MOV R4,TSDB(R5) 




JSR PC.CHKTSSR 




FORCERROR 322$ 




BCS 3301 




MOV R0.R1 




NEXT.ERRNO 


322$: 


ERRDF ERRN0,T192SSR,PKTSSR 



530$ i 



>'42i: 



350$: 



000002 



Misc 



CJERHRD 
813 

T198CMP 
MSGLOOP 

CfCLPl 



TRAP 
.WORD 
.WORD 
.WORD 

I LOOP ON ERROR, IF FLAG SET 

TRAP 

to Raaat Tap« Statu* F-FLOPS 

tSETUP PKT FOR WRITE MISC RtNt STATUS 

jGET WRITE SUBSYSTEM COMMAND PACKET 

,SET THE PACKET ADDRESS TO EXECUTE 

iWAIT FOR SSR TO SET 

lOaOFOPCE ERROR IF FOflCER-1 

,BR IF CARRY SET (GOOO RETURN) 

jSAVE CONTENTS OF TSSR 



jDEVlCE FATAL SSR 



INC 
CKLOOP 



FATFLG 



j SET FATAL ERROR l 
i LOOP ON ERROR, W 



FAILED TO SET 




T"!PP 


CIERDF 


, 'JORD 


814 


.WORD 


\ 192SSS 


. UCRD 


PKTSSH 


FL. G S! T 




T'lAP 


C$CLP1 



Writ* Subayatam 
PC.T19SR0 
•T19PK2.R4 
R4,TSDB(R5) 
PC.CHKTSSR 

3*2$ 



READ STATUS 



3621 1 



Do a 

JSR 

MOV 

MOV 

JSR 

FORCERROK 

BCS 350$ 

MOV R0.R1 

NEXT ERRNO 

ERRDF ERRNO, T193SSR.PKTSSR 



INC FATFLG 
CKLOOP 

JSR PC.T19SETFXP 

MOV 0T19EXSTA.R1 

MOV *T19BFSTA,R2 

MOV (R2),(R1) 

BIC 0S1.ICER.CR1) 

BIC AS1.IFMK.CR1) 

BIC * r il.IHEA,(Rl) 

MOV 2(R2).?CR1) 

CLR RO 

MOV OTl^BFR.Rl 

MOV *TiVEXP,R2 

MOV *20.,RS 

JSR PC.CKMSG2 

FORCERROR 362$ .NOTSSP 

BCS 370$ 

NCXT.ERHVO 

ERRHRD ERRNJ»T197CMP,MSGSTAT 



iSi£TUP PACKET FOR HEAD V.TUS 
iGET WRITE SUBSYSTEM COKrANL* PICKET 
jSET THE PACKET ADDRESS * '■ EXFU : «E 
jWAIT FOR SSR TO SET 

jO«)F0«CE ERRO<< 'f rT/9CER*l 
iBR IF CARRY SET (GOOC VWO 
I SAVE CONTENTS JF TSSK 



j DEVICE FATAL SSR FA.U.KD T SET 

\RAP 



^ET FATAL ERROR FLAG 
LOOP ON ERROR. IF FLAG 



.WORL 

.yoPD 

.WORO 



SET 
GET 
GET 
SET 
SET 
SET 

jet 

SFT 

HIGH 



SET 
TRAP 
WORDS 0-7 EXPD'RECV (NOT 
EXPECTED READ STATUS 



T193SSP 
PKTSSH 



C$CLP1 
TEPTVMi) 



RECV 
EXPO 
EXPD 
EXPO 
EXPD 
EXPD 
RF.CV 



READ 
WORD 
ICER 
IFMK 
IHER 
WORD 



STATUS 

*8 - RECV TEMP 
•0 

•0 

-0 



♦9 



ADDRESS 



• RECV (NOT 
FOR CKMSG2 



TESTING) 



LOU RECV AOORESS FOR CKMSG2 
EXPD ADDRESS 

NUNacR CF aY"ES iQ COMPARE 
Cr.PD EQUAL RECV? 

sso 

BR IF YES 
jREPORT ERROR 
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TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST 6: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 



4171 

4172 

4173 
4174 
4175 
4176 
4177 
4178 
4179 
4100 



410L 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
•*191 
41"? 
4193 
4194 
4195 
4196 
4197 
4i98 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
42U 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 



053454 
053456 
053460 
053462 
053464 
053464 

053466 
053474 
053500 
053504 
053506 
053512 

053512 
053512 
053512 

05V>j.a 

0535^2 
053526 



104456 
001460 
061023 
012160 

104406 

013737 
013703 
020327 
103002 
000137 



104403 



<».. 



370$: CKi "»0P 



TRAP 
.UORD 
.WORD 
.WORD 
j LOOP ON EPRCN. IF FLAG SET 

TRAP 



SEQ 175 



CIERHRD 
816 

T197CMP 
MSGSTAT 

CICLP1 



002312' 
002316' 
003062' 

052502' 



057534 



400$: 



MOV 


DATA.T19PREV 


MOV 


TSTPTR.R3 


cup 


R3.0TBLF.ND 


BHIS 


4001 


JHP 


2001 



ENDSUB 



i SETUP PRE- rOCS DATA FOR EXPO LhLC 

(RESTORE CURHlNT TSTflLK POINTER 

(END Of TSTBl KV 

jBR IF YES 

jDO NEXT T5TBLK PATTERN 



,//////////// ENO SUBTEST ////////// 

L 10067: 

TRAP CSESUB 



002222 
017014 



460$ 



TEST 



TST 


FATFLG 


BEQ 


460» 


JSR 


PC.CKDROP 



,ANY FATAL ERRORS ? 

{BRANCH IF NOT 

jTRY TO DROP THE UNIT 



SBTTL TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 



8: SUBTEST 2; 



SUBTEST DESCRIPTION: 

This subtest verifiaa tha Read/Write data loopback path* 
The Read/Write data signals are IR<7*0> and IW<7;0* 
respect i vely , 

TEST STEPS: 



REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

Write to TSSR rtoiater to soft initialize tha controller 

Do WRITE CHARACTERISTICS to check for Extended Featuraa Switch 

If Extended Features Hardware Switch Clear then: 

Do Write Subsystem Write Miscellaneous to Set Extendad Features, 
Do WRITE CHARACTERISTICS to select rtitrvtd unit 7 and setup BUFFER 
Do a Write Subsystem WRITE NPR to set tape direction out and Lookback 
Do a WRITE NPR to set loopback »nd tape direction OUT 
Do a WRITE FIFO with byte count equal to 1 and Tap* direction OUT 
Do a READ FIFO with tape direction OUT to load tape out writ* latch 
Do a WRITE NPR to aet loopbeck and tape direction IN 
Do a WRITE FIFO with byte count equal to 1 and Tape direction IN 
to strobe loopbeck data into FIFO. 

READ FIFO with tape direction IN to raad data 

sent Then Print Error 



Do 

If 
Do 
If 
If 
If 



Data raad from FIFO NOT- to Data 

a Write Subsystem READ STATUS 

Input Ready NOT-1 Then Print Error 

Output Ready NOT-0 Th#n Print Error 

Data In Hiss NOT-0 Then Print Erro. 



H14 



TSV5 - HARDWARE TESTS 
TEST 8: 



MACRO M1113 



SUBTEST 2; LOOPBACK READ/WRITE SIGNALS 



84 "it® 



SEQ 176 



4221 
4222 
4223 



4224 
4225 
4226 
4227 
4228 
4229 



4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 



4239 
4240 

4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 



4255 
4256 

4257 
4258 
4259 
4260 
4261 



END 



053526 
053526 
053526 

053530 
053530 
053534 
053536 
053540 
053540 
05*5542 
053544 
053546 

053550 
053554 
053560 
053564 
053600 
053602 
053604 
053604 
053604 
053606 
C53610 
053612 
053614 
053620 
053620 



053622 
053626 
053654 
053636 
053642 
053646 
053652 
053656 
053672 
053674 
053676 
053676 
053676 
053700 
053702 
053704 
053706 
053712 
053712 

OV5714 
0')3720 
055724 
053740 



104402 



004737 015604* 

103405 

010001 

104455 
001460 
003646' 
011644* 

005037 002222' 
012704 062050' 
004737 010472' 

103407 
010001 



104455 

001461 

057763' 

011656* 

005237 002222' 

104406 



012701 062072' 

032761 000200 000012 

001026 

004737 06172?' 

012704 062220' 

010465 OOOOOO 

004737 016146' 

103407 
010001 



104455 
001462 

060020* 
011656' 
005237 






10$: 



12$: 



15$: 

i 
i 



22$: 



104406 

012704 
004737 

103407 



00H222' 



062050' 
010472' 



30$: 

J 



BGNSUB i//////////// BEGIN SUBTEST ////////// 

T8.2: 

TRAP CiBSUB 
Write to TSSR register to soft Initialize the controller 

iWRITE TO TSSR TO SOFT INITIALI2E 
} BR IF SOFT INIT OKAY 
j SAVE CONTENTS OF TSSR 
jDEVICE FATAL DURING INIT 

TRAP 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO,SFlERR f SFIMSG 



Do WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV «T19PACKET,R4 

JSR PC.WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T19SSR, PKTSSR 



.WORD 
.WORD 
.WORD 
Switch 



C$ERDF 

816 

SFIERR 

SFIMSG 



check for Extended Features 
: CLEAR FATAL ERROR FLAG 
:GET THE ADDRESS OF COMMANO PACKET 
jDO WRITE CHARACTERISTICS COMMAND 

jfiWOFORCE ERROR IF FORCER- 1 
:BR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



{DEVICE FATAL 5SR 



INC 
CKLOOP 



FATFLG 



j SET FATAL ERROR F 
j LOOP ON ERROR. IF 



FAILED TO SET 




TRAP 


CIERDF 


.WORD 


817 


.WORD 


T19SSR 


.WORD 


PKTSSR 


LAG 




FLAG SET 




TRAP 


C$CLP1 



If Extended Features Hardware Switch Clear then: 

Oo Write Subsystem Write Miscellaneous to Set Extended Features. 



MOV 0T196FR.R1 

BIT JX2.EXTF.XST2CR1) 

BNE 30$ 

JSR PC.T19SEXT 

MOV 4T19PK2.R4 

MOV R4.TSDBCR5J 

JSR PC.CHKTSSR 

FORCERROR 22$ 

BCS 30$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T192SSR, PKTSSR 



{MESSAGE BUFFER ADDRESS 

tEXTENOED FEATURES SWITCH SET? 

iBR IF YES 

jSETUP PACKET FOR WRITE MISC INVERT 

iGET WRITE SUBSYSTEM COMMANO PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

jOSOFORCE ERROR IF FORCER- 1 
jBR IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



,SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



Do WRITE CHARACTERISTICS 
MOV *U9PACKET,R4 
JSR PC.WRTCHR 
FCRCERROR 4?» 
BCS 50$ 



SET 
TRAP 



to select reserved unit 7 

iGET THE ADDRESS OF COMMAND PACKET 
jDO WRITE CHARACTERISTICS COMMAND 

tSaOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 



CIEPDK 

818 

T192SSR 

PKTSSR 



ClCLPi 



114 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 



SEQ 177 



4262 
4263 
4264 



4265 
4266 

4267 
4268 
4269 
4270 
4271 
42 72 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4285 
4284 
4285 



4286 
4287 

4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
42vS 
4299 



4300 
4301 

4 302 
4303 



053742 
053744 
053744 
053744 
053746 
053750 
053752 
053754 
053760 
053760 



053762 
053766 
053772 
054000 

054004 
054010 
054014 
054020 
054024 
054030 
054034 
054 050 
054052 
054054 
054054 
054054 
054056 
054060 
054062 
034064 
054070 
054070 

054072 
054076 
054102 
054106 
054112 
054116 
054122 
054136 
054140 
0:>4142 
C54142 
054142 
054144 
054146 
054150 
054152 
054156 
054156 



010001 



104455 
001463 
057763 
011656 
005237 

104406 



42$ 



0022*2' 



MOV R0.R1 


j SAVE CONTENTS OF TSSR 




NEXT.ERRNO 






ERRDF ERRNO . T19SSR .PKTSSR 


iDEVXCE FATAL SSR FAILED TO GET 






TRAP 


C$ERDF 




.WORD 


819 




.WORD 


T19SSR 




.WORD 


PKTSSR 


INC FATFLG 


j SET FATAL ERROR FLAG 




CKLOOP 


lLOOP ON ERROR, IF FLAG SET 






TRAP 


CJCLPl 



012703 002752' 

012337 002312' 

042737 177400 002312' 

010337 002316' 



012700 
052700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 

001464 

060131' 

011656' 

005237 

104406 

012 JOO 
012701 
004 737 
012704 
010465 
004737 

103407 
010O01 



104455 
001465 

060174 
01165c 
005237 



000100 

000040 

061562' 

062220' 

000000 

016146' 



002222 



OOOOOl 

002312' 

061626' 

062220* 

OOOOOO 

016146' 



002222 



104406 
054160 012700 OOOOOl 



50$ 



j REPEAT FOR ALL TEST PATTERNS IN 

MOV 0TSTBLK.R3 
100$} MOV (R3)*.DATA 

BIC OtC<377>,DATA 

MOV R3.TSTPTR 
I Do a WRITE NPR to set loopback 

MOV ONP.OUT.RO 

BIS ♦NP.LOOP.RO 

JSR PC.T19SNPR 

MOV 0T19PK2.R4 

MOV R4.TSD8CR5) 

JSR PC.CHKTSSR 



102* 



105* 



107$ 



110$ 



FOttCERROR 102* 

BCS 105$ 

MOV R0.R1 

NEXT ERRNO 

ERRDF ERRNO. T194SSR. PKTSSR 



TSTBLK TABLE 

jGET FIRST PATTERN ADDRESS 
jGET A TEST PATTERN 
jDATA IS BYTE 

tSETUP CURRENT T3TBLK POINTER 
and tape direction OUT 
j SET TAPE DIRECTION OUT 
j SET LOOPBACK 

.SETUP T19PK2 FOR WRUE NPR 
jGET WRITE SUBSYSTEM COMMAND PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iSKOFORCE ERROR IF FORCER* 1 
jBR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



CIEROF 
820 

T1945SR 
PKTSSR 



jSET FATAL ERROR FLAG 
i LOOP ON ERROR. IF FLAG 



Do a WRITE FIFO with byte count 

MOV 01. RO 

MOV O0ATA.R1 

JSR PC.T19WFIF 

MOV 0T19PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 



Tap* 



at : 

TRAP 
di rect ion 



C$CLP1 
OUT 



107$ 



FORCERROR 

BCS 110$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO . T195SSR , PKTSSR 



equal to 1 and 

{WRITE 1 BYTE 

{FIFO WRITE DATA ADDRESS 

jSETUP T19PK2 FOR WRITE FIFO 

{GET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET AODRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

lOSDFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC FATFLG iSfcl FATAL ERROR FLAG 

CKLOOP {LOOP ON ERROR. IF FLAG 

Do a READ FIFO with tape direction UUT to load tape out 
MOV 01. RO {SET READ BYTE COUNT 



FAILED TO SET 
TRAP 

.WORD 
.WORD 
.WORD 



C$ERDr 
321 

T195SSR 
PKTSSR 



SET 

TRAP 

write 



CJCLP1 
latch 



J14 



TSV5 - HARDWARE 


TESTS 


MACRO M 


TEST 6; 


SUBTEST 2: L00PBACK RE 


4304 


054164 


004737 


061606' 


4305 


054170 


012704 


062220' 


4 306 


054174 


010465 


000000 


4307 


054200 


004737 


016146' 


4308 


054204 






4309 


054220 


103407 




4310 


054222 


010001 




4311 


054224 






4312 


054224 








054224 


104455 






054226 


001466 






054230 


060240' 






054232 


011656' 




4313 


054234 


005237 


002222' 


4314 


054240 








054240 


104406 




4315 








4316 


054242 


005000 




4317 


054244 


052700 


000040 


4318 


054250 


004737 


061562' 


4319 


054254 


012704 


062220' 


4320 


054260 


010465 


000000 


4321 


054264 


004737 


016146" 


4322 


054270 






4323 


054304 


103407 




4324 


054306 


010001 




4325 


054310 






4326 


054310 








054310 


104455 






054312 


001467 






054314 


060131' 






054316 


011656' 




4327 


054320 


005237 


002222' 


4328 


054324 








054324 


104406 




4329 








4330 


054326 


012700 


000001 


4331 


054332 


012701 


002312' 


4332 


054336 


0O4737 


061626' 


4333 


054342 


012704 


062220' 


4334 


054346 


010465 


000000 


4335 


054352 


004737 


016146' 


4336 


054356 






4337 


054372 


103407 




4338 


05*1374 


010001 




4339 


054376 






4340 


054376 








054 3 76 


104455 






054400 


001470 






054402 


060174' 






054404 


011656' 




4341 


054406 


005237 


002222 1 


4342 


054412 








054412 


104406 




4345 








4344 








4345 C54414 


012700 


000001 



01-FEB-84 17;02 



SEQ 178 



122$: 



142$: 



150$: 



162$: 



170$: 



JSR PC.T19RFIF 

MOV 0T19PK2.R4 

MOV R4.TS0BCR5) 

JSR PC.CHKTSSR 

FORCERROR 122$ 

BCS 130$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 196SSR , PKTSSR 





INC 




FATFLG 


130$; 


CKLOOP 




i 


Do a 


WRITE NPR to set loopback 




ei-R 




RO 




BIS 




OMP.LOOP.RO 




JSR 




PC,T19SNPR 




MOV 




0T19PK2.R4 




MOV 




R4,TSDB(R5) 




JSR 




PC.CHKTSSR 



FORCERROR 142$ 

BCS 150$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO , T 194SSR , PKTSSR 



I SETUP T19PK2 FOR READ FIFO 
I GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
j WAIT FOR 5SR TO SET 

jQSOFORCE ERROR IF FORCER-1 
>BR IF CARRY SET (GOOO RETURN) 
l SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR 



j SET FATAL ERROR F 
i LOOP ON ERROf\ IF 

and top* direction 
>CLR NP.OUT TO SET 
jSET LOOPBACK 

; SETUP T19PK2 FOR WRITE NPR 
jGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

; aaOFORCE ERROR IF FORCER-1 
j BR IF CARRY SET (GOOD RETURN) 
CONTENTS OF TSSR 



FAILED TO Str 




TRAP 


C$ERDF 


. WORD 


822 


. WORD 


T196SSR 


WORD 
i or. 


PKTSSR 


FLAG SET 




TRAP 


CICLP1 


IN 




TAPE DIRECTION IN 



j SAVE 



iDEVICi FATAL SSR 



INC 


FATFLG 




CKLOOP 






Do a WRITE FIFO with 


byte co 


MOV 


• l.RO 




MOV 


*0ATA,R1 




JSR 


PC.T19WFIF 




MOV 


0T19PK2.R4 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




FORCERROR 162$ 




BCS 


170$ 




MOV 


R0.R1 




NEXT.ERRNO 




ERRDF 


ERRNO. T195SSF 


t. PKTSSR 



jSET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



FAILED TO SI 
TRAP 
.WORD 
.UORD 
.WORD 



C$ERDF 
823 

T194SSR 
PKTSSR 



Tape 



SET 
TRAP 
direct Ion 



IN 



C$CLPl 



equal to 1 and 

; WRITE 1 B TE 

jFIFO WRI.E DATA ADDRESS 

I SETUP T19PK2 FCR WRITE FIFO 

j GET WRITE SUBSYSTEM COMMAND PACKET 

,SET THE PACKET ADDRESS TO EXECUTE 

j WAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
;SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG 



Do a READ FIFO with tope direc 
If Data r*ad from FIFO NOT- to 
MOV 01, RO 



SET 
TRAP 



CJF.RDF 

A24 

U9SSSW 

PKTSSR 



C$CLP1 



t i on IN to read dal5 
Dat« sent Then Print Error 
I SET READ BYTE COUNI 



TSV5 - HARDWARE TESTS MACRO Mil 13 01-FEB-34 17:02 
TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS T£ST 



K14 



SEQ 179 



4346 


054420 


004 737 


061606' 


4347 


054424 


012704 


062220' 


4348 


054430 


010465 


000000 


4349 


054434 


004737 


016146' 


4350 


054440 






4351 


054454 


103407 




435? 


054456 


010001 




4353 


054460 






4354 


054460 








054460 


104455 






054462 


001471 






054464 


060240' 






054466 


011656' 




4355 


054470 


005237 


002222 4 


4356 


054474 








054474 


104406 




4357 


0544 76 


004737 


061760' 


4358 


054502 


012701 


057622' 


4359 


054506 


012702 


062112' 


4360 


054512 


013711 


002312' 


4361 


054516 


016261 


000002 


4362 


054524 


005000 




4363 


054526 


012701 


062072' 


4364 


054532 


012702 


057602 1 


4365 


054531'* 


012703 


000022 


4366 


05454? 


004737 


011310' 


4367 


05"W> 






4368 


0* : " v,r, 


103404 




4369 


CV.f|.v>0 






4370 


0S4'.6C 








054560 


!v 1s 56 






05'. 56? 


Oij'472 






054564 


Ot..L,?00 






054566 


013552' 




4371 


054570 








054570 


104*' ^6 




4372 








4373 








4374 








4375 








4376 


0545 75 


'Hi". ''37 


061520* 


4577 


0545 7f- 


012704 


06J220' 


4378 


O?.'60.:- 


OlCV.f 


•',00000 


4.V79 


05' VV? 


004 ?. r ; 


016146' 


*380 


OVf.i: 






..: ;,1 


•"•■*46.*t. 


K'';4V 




4 ;.. . 


30 


01* /101 




4.V*. 








4Aii'i 


' ■ j - 1 J 








O'iHvV 


1.0"V55 






054 h 34 


001.4/3 






024f ;.*, 


060064' 






054640 


011656' 




4385 


r 464;- 


005237 


0022.-'r2' 


4386 


Of. 4646 








054646 


104406 




4357 


U54650 


004737 


061/60' 



182$ j 



190$ 



000002 



202$: 



210$: 

1 
} 
; 
i 



212$: 



220$: 



JSR PC.T19RFIF 

MOV *T19PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 182$ 

BCS 190$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 196SSR , PKTSSR 



iSF.MF rt9PKr? FOR READ FIFO 
I'jtT llriiTE <U SYSTEM COMMAND PACKET 
tSET fUE PACKET ADDRESS TO EXECUTE 
j WATT FOR HSR TO SET 

jasOFORCE ERROR IF FORCER -1 



iDK IK 



MY SET (GOOD RETURN) 



I SAL'S CONTENTS OF TSSR 

u/EVICE FATAL SSR FAILED TO SET 



TRAP 


C$ERDF 


.WORD 


825 


.UORD 


T196S5R 


.WORD 


PKTSSR 



INC 


FATFLG 




j SET FATAL ERROR FLAG 




CKLOOP 






{LOOP ON ERROR, IF FLAG SET 

TRAP 


CICLP1 


JSR 


PC.T19SETEXP 




,SET UORDS 0-7 EXPD-RECV (NOT 


TESTING) 


MOV 


0T19EXSTA.R1 




{GET EXPECTED READ STATUS 




MOV 


*T19eFSTA,R2 




{GET RECV READ STATUS 




MOV 


DATA, CRD 




{SET EXPD UORD 08 - DATA 




MOV 


2(R2),2CR1) 




{SET EXPD WORD 09 - RECV (NOT 


TESTING) 


CLR 


RO 




{HIGH RECV ADDRESS FOR CKMSG2 




MOV 


*T196FR,R1 




{LOU RECV ADDRESS FOR CKMSG2 




MOV 


0T19EXP.R2 




{EXPD ADDRESS 




MOV 


018., R3 




{NUMBER OF BYTES TO COMPARE 




JSR 


PC, CKMSG2 




{EXPD EQUAL RECV? 




rORCERROR 202$,N0TSSR 


{SSO 




BCS 


210$ 




;3R IF YES 




NEXT.ERRNO 








ERRHRD 


ERRNO, T199CMP 


,MSGSUB 


{REPORT ERROR 

TRAP 
.WORD 
.UORD 
.WORD 


C$ERHRD 
826 

T199CMP 
MSGSUB 


CKLOOP 






{LOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


Do a Writ* Subsystem READ STATUS 




If Input Ready NOT-1 


Then 


Print Error 




If Output Ready NOT-0 


Then 


Print Error 




If Data 


In Miss NOT-0 


Then 


Print Error 





PC.T19SR0 
0T19PK2.R4 
R4.TSDBCR5) 
PC.CHKTSSR 

212$ 



JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 220$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T193SSR, PKTSSR 



{SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
i WAIT FOR SSR TO SET 

;o«OFORCE ERROR IF FURCER-1 
{BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



INC 
CKLOOP 

JSR 



FATFLG 



PC.T19SETEXP 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.UORD 
.UORD 
.UORD 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
82 7 

T193SSR 
PKTSSR 



CJCLP1 



{SET WORDS 0-7 EXPD-RECV (NOT TESTING) 



L14 



TSV5 - HARDWARE TESTS 
TEST 



MACRO Ml 113 



— -^ .^.^ ...,w.w ..***^ Ol-FEB-84 17:0? 

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS T£sT 



SEQ 180 



4388 
4389 
m390 
4391 
439? 

4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 



4404 

4405 
4406 
4407 
4408 
4409 
4410 
4411 
441? 
4413 
4414 
4415 



4416 

4417 
4418 
4419 
4420 

4421 
44c?? 
4423 
4 424 
4421) 
4426 
442/ 
4428 
4429 
4430 
4431 
4432 
44 35 
4434 
4455 
44 56 

443V 



054654 
054660 
054664 
054666 
054670 
054674 
054 700 
054704 
054706 
054712 
054716 
054722 
054 726 
054736 
054 740 
054740 
054740 
054742 
054744 
054746 
054 750 
054750 



054752 
054 762 
054 766 
054 772 
054 774 
055000 

055000 
055000 
055000 

055002 
055006 
055010 
055014 



012701 
012702 
012221 
011211 
052711 
042711 
042711 
005000 
012701 
012702 
012703 
004 737 

103404 



104456 
001474 
060740' 
012160' 

104406 



013703 
020327 
10300? 
000137 



104403 

005 737 
001402 
004737 



057622 
062112 



000020 
000040 
000200 

062072* 
057602' 
000024 
011310' 



002316 
003062 ' 

053766 1 



002222 ' 
017014' 



232$ 



240$ 



255$: 



MOV 


0T19EXSTA.R1 


{GET EXPECTED READ STATUS 




MOV 


0T19BFSTA.R2 


iGET RECV READ STATUS 




MOV 


(R2)»,CR1)# 


iSET EXPO WORD 08 * RECV TEMP 




MOV 


(R2),(Rn 


{SET EXPD WORD 09 - RECV TEMP 




BIS 


0S2,INRDY,(R1) 


I SET EXP INPUT READY- 1 




BIC 


0S2.0UTRDY.CR1) 


iSET EXP OUTPUT READY- 




BIC 


0S2.DIM.CR1) 


jSET EXP DATA IN MISS - 




CLR 


RO 


{HIGH RECV ADDRESS FOR CKMSG2 




MOV 


0T19BFR.R1 


{LOW RECV ADDRESS FOR CKMSG2 




MOV 


0T19EXP.R2 


{EXPO ADDRESS 




MOV 


020. ,R3 


jNUMHER OF BYTES TO COMPARE 




JSR 


PC.CKMSG2 


lEXPD EQUAL RECV? 




FORCERROR 232$ .NOTSSR 


iSSO 




BCS 


240$ 


I BR IF YES 




NEXT.ERRNO 






ERRHRD 


ERRNO , T 196CMP , MSGST AT 


j REPORT ERROR 








TRAP 


C$ERHRD 






• WORD 


828 






.WORD 


T196CMP 






.WORD 


MSGSTAT 


CKLOOP 




;LO0P ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


FCRCEXIT 255$ 


jS30 




MOV 


TSTPTR.R3 


jRESTORE CURRENT TSTBLK POINTER 




CMP 


R3.0TBLEN0 


{END OF TSTBLK? 




BHIS 


255$ 


{BR IF YES 




JMP 


100$ 


jDO ANOTHER TSTBLK PATTERN 





ENDSUB 



TST 


FATFLG 


BEQ 


260$ 


JSR 


PC.CKDROP 



260$: 



j//////////// END SUBTEST ////////// 

L 10070: 

TRAP C$ESU6 

j ANY FATAL ERRORS ? 

{BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTl. TEST 8; SUBTEST 3: LOOPBACK WRITE STROBE TEST 



♦ ♦ 



j TEST 8; SUBTEST 3: 

! SUBTEST DESCRIPTION: 

! 

j This subtest verifies the Write Strobe loopbnek pr.th 
; can strobe data from the FIFO to the Data lines, 
j The signal IRESV3 drives IWSTR (nrite strobe) to write 
{ data from the FIFO to the tape data out latch, 

I TEST STEPS: 



j REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 



M14 



TSV5 - HARDWARE 


TESTS 


MACRO M 


TEST 8: SUBTES 


T 3; LUOPBACK WR 


4438 






4459 






4440 






-144 1 






444? 






444 S 






4444 






4445 






4446 






444 7 






4448 






444^ 






44 50 






4451 






4452 






*?453 






4454 






4455 






44 56 






4457 055014 






055014 






055014 


104402 




4458 






4459 055016 






4460 055016 


004 737 


015604' 


4461 055022 


103405 




4462 055024 


010001 




4463 055026 






055026 


104455 




055030 


001474 




055032 


003640' 




055054 


011644 1 




4464 






4465 055036 


005037 


002222' 


4466 055042 


012704 


062050' 


446/ 055046 


004 737 


010472' 


4468 055052 






4469 055066 


103407 




44 70 055070 


010001 




4471 055072 






4472 055072 






055072 


104455 




055074 


001475 




0550 76 


057763' 




055100 


011656' 




4473 055102 


005237 


002222' 


4474 055106 






055106 


104406 




44/5 






4476 






447/ 055110 


012/01 


0620 72' 


44 78 055114 


032761 


000200 


44/9 055122 


001026 




4460 055124 


004 73/ 


061722' 


4481 055130 


012 704 


062220' 


448? 055134 


010465 


000000 


4483 055140 


004737 


01614b' 



>0- 



SEQ 181 



DFrUN 

Write to TSSR register to soft Initialize the controller 

Do WRITE CHARACTERISTICS to check for Extended features Switch 

If Extended Features Hardware Switch Clear then: 

Oo Write Subsystem Write Miscellaneous to Set Extended features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
a Write Subsystem WRITE NPR to set tape direction out and Loopback 
NPR to set loopback and tape direction OUT 
to set IRESV3--MWSTR - 1 

th byte count equal to 1 ar\0 Tape: direction OUT 
to set IRESV3-->IWSTR ■ to load write data latch 
to set IRESV3-->IWSTR - 1 
set loopback and tape direction IN 

byte count equal to 1 and Tape direction IN 
data into FIFO, 
tape direction IN 



Do 
Do 
Do 
Do 
Do 
Do 
Do 
Do 



a 
a 
a 
a 
a 
a 
a 
to 
Do a 



WRITE 

WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
strobe 



FORMAT 
FIFO w 
FORMAT 
FORMAT 
NPR to 
FIFO with 
loopback 



READ FIFO with 



to read data 



END 



5$} 



10$: 



If Data read from FIFO NOT* to Data sent Then Print Error 

i 

BGNSUB ;//////////// BEGIN SUBTEST ////////// 

T8.3: 

TRAP C$BSUB 
Write to TSSR register to soft initialize the controller 

;WRITE TO TSSR TO SOFT INITIALIZE 
I BR IF SOFT INIT OKAY 
{SAVE CONTENTS OK TSSR 
j DEVICE FATAL DURING INIT 

T^Af 1 C$ERDF 
.:■.'." 'RD 828 
. 2R0 SFIERR 
WOKO SFIMSG 
check for Extended Feature Smirch 
; CLEAR FATAL ERROR FLAG 
j GET THE ADDRESS OF COMHAfcl.i W:\ET 
{DO WRITE CHARACTERISTIC i- *>■•!; 

jSaOFORCE ERioP • ' ' u. . . ?-»l 
;BR IF CARRY S~T (GOOD nt."iJ«N5 
{SAVE CONTENTS OF TSSR 



JSR 


PC.SOFINIT 


BCS 


10* 


MOV 


RO.Rl 


ERRDF 


ERRNO. SFIERR, SFIMSG 



12$: 



Do WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV 0T19PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRN0.T19SSR.PKTSSR 



IS*: 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR 



{SET FATAL EKROR Ft.. . 
;L00P ON ERROR, IF FLAG 



FAILED 


TO SET 








TRAP 


C$1" 


<C f 




. wTFJl 


s? 






. vtOhO 


Ti.' 


-SR 




. WORD 


PKT 


SSR 



TtfJ*i 



If Extended Features Hardwa 
Do Write Subsystem Write 



C$CLP1 



000012 



MOV 0T19BFR.R1 

BIT 0X2.EXTF,XST2(Rn 

BNE 30$ 

JSR PC.T19SEXT 

MOV 0T19PK2.R4 

MOV R4.TS0B(R5) 

JSR PC.CHKTSSR 



re Switch Clear then: 

Miscellaneous to Set Extended Features, 
{MESSAGE BUFFER ADDRESS 
{EXTENDED FEATURES SWITCH SFT ? 
{BR IF YES 

{SETUP PACKET FOR WRITE MISC INVERT 
{GET WRITE SUBSYSTEM COMMAND PACKFi 
{St T THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO FET 



N14 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEb-84 17:02 
TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEbT 



SEQ 182 



4484 
4485 
4486 
4487 
4488 



4489 

4490 

4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 



4499 
4500 

4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 



4519 
4520 

4521 

4522 
4523 
4524 
4525 



055144 
055160 
055162 
055164 
055164 
055164 
0551oo 
055170 
055172 
055174 
055200 
055200 

055202 
055206 
055212 
055226 
055230 
055232 
055232 
055232 
05:^234 
055236 
055240 
055242 
055246 
055246 



055250 
055254 
055260 
055266 

05527L* 
055276 
055302 
055306 
055312 
055316 
055322 
055^36 
055340 
055342 
055342 
055342 
055544 
055346 
055350 
055352 
055356 
055356 

055360 
055364 
055370 
055374 



10340/ 
010001 



104455 
0014/6 
060020 
011656 
005237 

104406 



104406 



012703 
012337 
042737 
010337 

012700 
052700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001500 
060131 
011656 

005237 

104406 



002222 



012704 062050' 
004737 010472' 

103407 
010001 



104455 
0014/7 
057763 
011656 
005237 



002222 



002752' 
002312' 
177400 
002316 1 

000100 
000040 
061562 
062220 
000000 
016146 



002222' 



012700 000002 

004 73 7 061702' 

012/04 062220' 

010465 000000 



22$ 



22$ ? 



FORCERROR 

BCS 30$ 

MOV RO.Rl 

NEXT. ERRNO 

ERPOF ERRNO t T192SSR , PKTSSR 



;&)o)OFORCE ERROR IF FORCER-l 
? BR IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSSR 



I DEVICE FATAL S5^ 



30$} 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 

• WORD 
.WORD 



C$ERDF 
830 

T192SSR 
PKTSSR 



5 SE T FATAL ERROR FLAG 
{LOOP ON ERROR, IF C LAG 



;GET THE ADDRESS 



42$: 



Do WRITE CHARACTERISTICS to select reserved unit 

MOV 0T19PACKET.R4 

JSR PC.URTCHR 

rORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO ♦ T19SSR , PKTSSR 



TRAP 



7 
OF 



$CLP1 



COMMAND PACKET 



;D0 WRITE CHARACTERISTICS COMMAND 

jaaOFORCE ERROR IF FORCER *1 
;hR IF CARRY SET (GOOD RETURN) 
: SAVE CONTENTS OF TSSR 



50$: 



INC 
CKLOOP 



FATFLG 



j DEVICE FATAL SSR 



5 SET FATAL ERROR i : 
jLOOP ON ERROR, If : 



FAILED TO \t 




TRAP 


C$EROF 


.WORD 


£31 


.WORD 


"1 19SSR 


.WORD 


PKTSSR 


LAG 




FLAG r >ET 




TRAP 


C$CLP1 



002312 



100$ 



102' 



REPEAT FOR ALL TEST PATTERNS IN TSTDLK 
MOV 0TSTBLK.R3 
MOV (R3)*.DATA 
BIC <nC<377>,DATA 
MOV R3.TSTPTR 
Do a WRITE NPR to set loopbock on 
MOV ONP.OUT.RO ; 

BIS ONP.LOOP.RO ; 

JSR PC.T19SNPR ; 

MOV 0T19PK2.R4 
MOV R4.TSDBCR5) j 

JSR PC.CHKTSSR j 

FORCERROR 102$ 
BCS :'.05$ 

MOV RO.Rl ; 

NEXT. ERRNO 
ERRDF ERRNO, T194SSR, PKTSSR j 



TABLE 
GET FIRST PATTERN ADDRESS 
GET A TEST PATTERN 
DATA IS BYTE 

SETUP CURRENT TSTBLK POINTER 
d tape direction OUT 
SET TAPE DIRECTION OUT 
SE T LOOPBACK 

SETUP T19PK2 FOR WRITE NPR 
GET WRITE SUBSYSTEM COMMAND PACKET 
SET THE PACKET ADDRESS TO EXECUTE 
WAIT FOR SSR TO SET 

jSSOFORCE ERROR IF F09CER-1 
BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 



DEVICE FATAL SSR 



105$ 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 

.WORD 
.WORD 



SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 



Do a WRITE FORMAT to set IRESV3-" 
MOV -OWE .I3RES.R0 

JSR PC.T19WFMT j 

MOV 4T19PK2.R4 ; 

MOV R4,TSDB(R5) j 



Sfc I 

TRAP 



1 



CiERDF 

832 

T194SSR 

PKTSSR 



C$CLP1 



>IWSTR 

IRESV3-->IUSIR-1 

SETUP T9PK2 FOR WRITE FORMAT 

GET WRITE SUBSYSTEM COMMAND PACKET 

SET THE PACKET ADDRESS TO EXECUTE 



Bli 



^ 



TSV5 - HARDWARE 


TESTS 


MACRO M 


TEST 8: 


SUBTEST 3: L00PBACK WR 


4526 


055400 


004 7 37 


016146' 


4527 


055404 






4528 


055420 


10£O7 




4529 


055422 


010001 




4530 


055424 






4531 


055424 








055424 


104455 






055426 


001501 






055430 


060352' 






0554 32 


011656' 




4532 


055434 


005237 


002222' 


4533 


055440 








055440 


104406 




4534 








4535 


055442 


012700 


000001 


4536 


055446 


012701 


002312' 


4537 


055452 


004737 


061626' 


453© 


0554 56 


012704 


062220' 


4539 


055462 


010465 


000000 


4540 


05S466 


004737 


016146' 


4541 


055472 






4542 


055506 


103407 




4543 


055510 


010001 




4544 


055512 






4545 


055512 








055512 


104455 






055514 


001502 






055516 


060174' 






055520 


011656' 




<S46 


055522 


005237 


002222' 


4547 


055526 








055526 


104406 




4546 








4549 


055530 


005000 




4550 


055532 


0O4737 


061702* 


4551 


055536 


012704 


062220 ' 


4552 


055542 


010465 


000000 


4553 


055546 


004737 


016146' 


4554 


055552 






4555 


055566 


10340/ 




4556 


055570 


010001 




4557 


055572 






4550 


055572 








055572 


104455 






055574 


001503 






055576 


060352' 






055600 


011656 




4559 


055*0? 


005237 


002222' 


4560 


055606 








055606 


104406 




4561 








4562 


055610 


012700 


000002 


4563 


055614 


004737 


061702 


4564 


055620 


012704 


062220' 


45/» r 


055624 


010465 


000000 


4566 


055630 


004737 


016146* 


4567 


05U»34 







M1113 01 FEB-84 17:02 
: STROBE TEST 



SEQ 183 



112*1 



132$: 



1 



JSR PC.CHKTSSR 

FORCERROR 112* 

BCS 120* 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T198SSR, PKTSSR 



jWAIT FOR SSR TO SET 

»0fi0F0RCE ERROR IF FORCER-1 
iBR IF CARRY SET (COOO RETURN) 
iSAVE CONTENTS OF TSSR 



IDEVICE FATAL SSR 





INC 




FATFLG 


120*1 


CKLOOP 




l 


Do a 


WRITE FIFO wi 




MOV 




#1.R0 




MOV 




♦0ATA.R1 




JSR 




PC.T19WFIF 




MOV 




*T19PK2,R4 




MOV 




R4,TSD6(R5 




JSR 




PC.CHKTSSR 



FAILED TO SET 




TRAP 




C*ERDF 


.WORD 




833 


.WORO 




T19BSSR 


.WORD 




PKTSSR 


LAG 






FLAG SET 






TRAP 




C*CI.PX 


« direct ion 


OUT 



132* 



FORCERROR 
BCS 140* 

MOV R0.R1 

NEXT.ERRNO 

EfiRDF ERRNO, T195SSR, PKTSSR 



I SET FATAL ERROR F 
I LOOP ON ERROR, IF 

byt« count #qu«l to 1 and Tap« 
iWRITE 1 BYTE 
iFIFO WRITE DATA ADDRESS 
iSETUP T19PK2 FOR WRITE FIFO 
iGET WRITE SUBSYSTEM COMMANO PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

ifiaOFORCE ERROR IF ^ORCER-1 
»BP IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSSR 



^DEVICE FATAL SSR 





INC 


FATFLG 


140*1 


CKLOOP 


1 


Do • 


WRITE FORMAT to «at IRE 




CLR 


RO 




JSR 


PC.T19WTMT 




MOV 


♦T19PK2.R4 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




FORCERROR 152* 




BCS 


160$ 




MOV 


R0.R1 




NEXT, 


ERRNO 


15?I| 


F.RRW- 


ERRNO, U98SSR. PKTSSR 



I SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 

TRAP 



C*ERDF 
834 

T195SSR 
PKTSSR 



CICLPl 



••>IWSTR • 
jSET IRESV3-->lWSTR-0 
iSETUP T9PK2 FOR WRITE FORMAT 
jGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR S£R TO SET 

iMOFORCE ERROR IF FORCER-1 
»BR IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF TSSR 



iDtVICE FATAL SSR 



INC FATFLG 
CKIOC* 

Do • WRITE FORMAT to «at 1R&SVS 

MOV #WF, I3RES.R0 

JSR PC.T19WTMT 

MOV #T19PK2,R4 

MOV R4,TSD8(R5) 

JSR 



FAILED TO SET 
TRAP 
.WORD 
.WORO 
.WORD 



iSET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIERDF 

835 

T198SSR 

PKTSSR 



CICIP] 



FQRCERROR 



PQiCHKTSSR 



112% 



»»»IWSTR • 1 

iIRESV3-->IWSTR-l 

I SETUP T9PK2 FOR WRITE FORMAT 

jGET WRITE SUBSlSTEM COMMANO PACKET 

jSET THE PACKET ADDRESS TO EXECUTE 

iWAXT FQP SSR TO SET 

iBSQFQRCE £RRU> * KORCtR»l 



CIS 



TSVb • HARDWARE 


TESTS 


MACRO M 


TEST 8: SUBTEST 3: LOOPBACK WR 


4568 055650 


103407 




4569 055652 


010001 




4570 055654 






4571 055654 






055654 


104455 




055656 


001504 




055660 


060352' 




055662 


011656* 




45 /«> 055664 


005237 


002222' 


4573 055670 






055670 


104406 




4574 






4575 






4576 055672 


005000 




457 7 0556 74 


052700 


000040 


45 78 055/00 


0O4737 


061562' 


4579 055704 


012704 


062220' 


4580 055710 


010465 


000000 


4581 055 ;i4 


004737 


016146' 


458? 055720 






4583 055734 


103407 




4554 055736 


010001 




4585 055 740 






4586 055740 






055740 


104455 




055 742 


001505 




055 744 


060131' 




055 746 


011656' 




458 7 055/50 


005237 


002222' 


4588 055754 






055754 


IO4406 




4589 






4590 055 756 


012700 


000001 


4591 055762 


012701 


002312' 


4592 055 766 


00473/ 


061626' 


4593 055772 


012704 


062220' 


4594 055776 


010465 


OOOOOO 


4595 056002 


004737 


016146' 


4596 056006 






459 7 056022 


103407 




4598 056024 


010001 




4 599 056026 






4600 056026 






056026 


104455 




056030 


001506 




05603? 


060174- 




056034 


011656' 




4601 056036 


005237 


002222' 


4602 Cj6042 






05604? 


104406 




4603 






4604 056044 


012700 


000001 


4605 056050 


004737 


061606* 


4606 056054 


0*2 704 


062220' 


4607 056060 


01O465 


OOOOOO 


4608 056064 


004757 


016146* 


4bG9 Q5607O 







17:02 



SEQ 184 



172$; 



180$: 



BCS 180$ 

MOV R0,R1 

NEXT, ERRNO 

ERROF ERRNO, T19BSSR, PKTSSR 



INC 


.'ATFLG 


CKLOOP 


Oo a 


WRITE WR to »at loopbwck 


CLR 


RO 


BIS 


•NP.LQOP.RO 


JSR 


PC.T19SNPR 


MOV 


♦T19PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


ORCERROR 182$ 


bcs 


190$ 


MOV 


R0.R1 


NEXT 


.ERRNO 



iBR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS Of TSSR 

jDEVICE FATAL SSR FAILED TO SET 

TRAP 
■ WORD 
.WORD 
.WORD 

SET 
TRAP 



,SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



C$ERDF 
836 

T198SSR 
PKTSSR 



C$CLP1 



and tapa direction IN 
iCLR NP.OUT TO SET TAPE DIRECTION IN 
iSET LOOPBACK 

»SETUP T19PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND PACKET 
jSET THE PACKET ADDRESS TO EXECU1E 
iWAIT FOR SSR TO SET 

ifiSOFORCE ERROR If FORCER-1 
tBR ir CARRY SET CGOOO RETURN) 
l SAVE CONTENTS OF TSSR 



182$: ERRDF ERRNO, U94SSR. PKTSSR 



iDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
WORD 



CIERDF 
837 

T194SSR 
PKTSSR 





IN." 


FATFLG 


190$: 


CKLOOt' 


I 


Do a 


WRITE FIFO nit 




MOV 


♦ l.RO 




MOV 


♦OATA.Rl 




JSR 


PC.T19WF IF 




MOV 


*U9PK2,R4 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




F OR C ERROR 202 




BCS 


210$ 




MOV 


R0.R1 




NEXT 


.ERRNO 



I SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



SET 
TRAP 
dt ra-ct Ion 



IN 



C$CLP1 



byta count aqual to 1 and 
IWRITE I BYTE 
jFIFO WRITE DATA ADORESS 
iSETUP T19PK2 FOR WRITE FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
iSFT THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

,MOFORCE ERROR IF FORCER-1 
:PR IF CARRY SET CGOOO RETURN) 
iSAVE CONTENTS OF TSSR 



202$: ERRDF ERRNO, T195SSR, PKTSSR 



iDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 





INC 




FATFLG 


ZlQti 


CKLOOP 




i 


Do a 


READ FIFO with 




MOV 




♦ l.RO 




JSR 




PC.T19RFIF 




MOV 




♦T19PK2.R4 




MOV 




R4.TSDBCR5) 




JSR 




PCtCMKTSSR 




FURCERRQR 2*2*2 1 



I SET FATAL ERRCR FLAG 
lLOOP ON ERROR, IF FLAG 



SET 
TRAP 



tapa direction IN to raad data 

iSET READ BYTE COUNT 

jSETUP T19PK2 FOfi READ FIFO 

iGET WRITE SUBSYSTEM COMMAND PACKET 

I SET THE PACKET ADDRESS TO EXE DUE 

IWAXT FQR SSR TO SE T 

IfiSOFORCE ERROR If FORCER* I 



C$ERDF 
838 

T195SSR 
PKTSSR 



CSCl.Pl 



DV... 



TSV5 - HAROUARE 


TESTS 


MACRO M1113 


TEST 8: 


SUBTEST 3: LOOPBACK WRITE STR 


4610 


056104 


103407 




4611 


056106 


010001 




4612 


056110 






4613 


056110 








056110 


104455 






056112 


001507 






056114 


060240' 






056116 


011656' 




4614 


056120 


005237 


002222' 


4615 


056124 








056124 


104406 




4616 








4617 


056126 


0O4737 


061760' 


4618 


056132 


012701 


057622' 


4619 


056136 


012702 


062112' 


4620 


056142 


013711 


002312' 


4621 


056146 


016261 


000002 000002 


4622 


056154 


005000 




4623 


056156 


012701 


062072' 


4624 


056162 


012702 


057602' 


4625 


056 If* 


012703 


000022 


4626 


056172 


004737 


011310' 


4627 


056176 






4628 


056206 


103404 




4629 


056210 






4630 


036210 








c'6210 


104456 






056212 


001510 






056214 


OS126.V 






056216 


013552' 




4631 


056220 








056220 


104406 




4632 








4b33 








4634 


056222 






4635 


056232 


013703 


002316' 


4636 


056236 


020327 


003062' 


4637 


056242 


103002 




4638 


056244 


000137 


055254' 


4639 


056250 






4640 








4641 


056250 
056250 








056250 


104403 




4642 








4643 


056252 


005737 


002222* 


4644 


056256 


001402 




4645 


056260 


004 737 


017014' 


464S 


056264 






464 7 








4648 








4649 








465Q 








4651 








4h5<- 








46M 








4654 









17:02 



SEQ 185 



222*} 



255* 



BCS 2301 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 196SSR , PKTSSR 



iflR ir CARRY SET (GOOD RETURN) 
jSAvE CONTENTS Of TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
839 

T196SSR 
PKTSSR 





INC 


FATFLG 




iSET FATAL ERROR FLAG 




230*j 


CKLOOP 






lLOOP ON ERROR, IF FLAG SET 

TRAP 


C*CLP1 


I 


If Data 


r#ad from FIFO 


NOT- to 


Dato atnt Than Print Error 






JSR 


PC.U9SETEXP 




iSET WORDS 0-7 EXPD-RECV (NOT 


TESTING) 




MOV 


♦ U9EXSTA.R1 




»GET EXPECTED READ STATUS 






MOV 


«T196FSTA,R2 




jGET RECV READ STATUS 






MOV 


DATA.(Rl) 




)SET EXPO WORD #8 - OATA 






MOV 


2CR2).2(R1) 




iSET EXPD WORD #9 - RECV (NOT 


TESTING) 




CLR 


RO 




j HIGH RECV ADDRESS FOR CKMSG2 






MOV 


*T198FR,R1 




jLOW RECV ADDRESS FOR CKMSG? 






MOV 


• Tl9EXP,R2 




jEXPD ADDRESS 






MOV 


♦ 18. ,R3 




iNUMBER Of BYTES TO COMPARE 






JSR 


PC.CKMSG2 




jEXPD EQUAL RECV? 






FORCERROR 242* , NGT55R 


isao 






BCS 


250* 




jBR IE YES 






NEXT.ERRNO 








242*; 


ERRHRD 


ERRNO, T19WSTR, 


MSGSUB 


iREPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 


C«ERHRD 
840 

T19WSTR 
M5GSLE 


250*5 


CKLOOP 






jLOOP ON ERROR, IF FLAG SET 

TRAP 


C*CLP1 




FORCEXIT 255* 




iseo 






MOV 


TSTPTR.R3 




iRESTORE CURRENT TSTHLK POINTER 




CMP 


R3.0TBLEND 




lENO OF TSTBLK? 






BHIS 


255* 




iBR IF YES 






JMP 


100* 




jDO ANOTHER TSTBLK PATTERN 





EWSUB 



TST 
BEQ 
J5R 



FATI-i G 
260 • 
PCCKDROP 



\//////////// ENO SUBTEST // ////// .'/' 

L100715 

TRAP C5ESUB 

,ANy taTAl ERRORS ? 

I BRANCH IF NOT 

I TRY TO DROP THE UNIT 



.SBTTL TEST 6} SUBTEST 4 LOOPBACK READ STROBE TEST 



I TfST A: SUBTEST 4 : 
i SUBTEST DESCRIPTION; 



E1L5 



TSVS - HARDWARE- TESTS MACRO M1113 Oi-F'EB 84 17iOi* 
TEST 8: SUBTEST * LOOPBACK READ STROBE TEST 



SEQ 166 



4655 

4656 

4657 

4658 

4659 

466i' 

466 

466. 

466 S 

4664 

4665 

4666 

466 7 

4668 

4669 

46/0 

46/1 

467? 

46/5 

46 74 

46/5 

46/6 

4677 

46/8 

4679 

4680 

4681 

468? 

4683 



4684 
4685 
4686 
468/ 
4688 
4689 



4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 



4699 
4/00 



056264 
056264 
056264 

056266 
056266 
056272 
0562 74 
0562/6 
0562 76 
056500 
056302 
056304 

056306 
056312 
056316 
056322 
056336 
056340 
056 342 
056 342 
056 542 
056344 
056346 
056 350 
056352 
056 356 
056356 



1-04402 



004737 015604' 

103405 

010001 

104455 
001510 
003646' 
011644' 

005037 002222' 
012704 062050' 
00473/ 010472' 

103407 
010001 



104455 

001511 

057763' 

011656* 

00523 7 002222' 

104406 



i 
5$; 



This subtest varifiaa tha Raad Stroba loopback path 
can stroba tha data from tha Data linaa to tha FIFO, 
Tha vignal IRESV4 drivaa IRSTR (read strob«) to writ* 
from tha data Unas to tha FIFO, 

TEST STEPS} 

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

BEGIN 

Writa to TSSH ragiatar to aoft initiali*a tha controller 

Do WRITE CHARACTERISTICS to chack for Extandad F e atura« Switch 

If Entaodad Faaturaa Hardwara Switch Claar than: 

Do Writa Subayatam Wr I ta M i ac a 1 1 anaoua to Sat Extandad Faatura*. 
Do WRITE CHARACTERISTICS to aalact rm—rvd Lm i t 7 and »*tup BUFFER 
Do a Writa Subayatam WRITE NPR to aat tapa diraction out and Loopback 
Do a WRITE NPR to aat loopback and tapa diraction OUT 
Do a WRITE FORMAT to aat IRESV4-->IRSTR • 1 

Do a WRITE FIFO with byta count aqual to 1 and Tapa diraction OUT 
Do a READ FIFO with tapa diraction OUT to load tapa out writa latch 
Dc a WRITE NPR to aat loopback and tapa diraction IN 

Do a WRITE FORMAT to aat IRESV4- •> IRSTR • to writa loop data to FIFO 
Do a WRITE FORMAT to aat IRESV4-->IRSTR - 1 

(to atroba loopback data into FIFO.) 
Do a READ FIFO with tapa diraction IN to raad data 
If Data raad from FIFO NOT- to Data a«nt Than Print Error 

END 

BGNSUB ,//////////// BEGIN SUBTEST ////////// 

T3.4: 

TRAP CIBSUB 
Writa to TSSR rapiatar to soft initiall/a tha controllar 



JSR 
BCS 
HOV 
ERRDF 



PL. SOT INIT 

10* 
RO.Rl 

ERRNO,SFIERR,SFIHSG 



10$: 



■WHITE TO TSSR TO SOFT INITIALIZE 
iBR IF S0> T INIT OKAY 
»SAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING INIT 

TRAP CIERDF 

.WORD 840 
.WORD SFIERR 
.WORD SFIMSG 
Do WRITE CHARACTERISTICS to chack for E*tandad F 9A tur«t Switch 



12$: 



CLR FATFLG 

HOV *T19PACKFT,R4 

JSR PC.WRTCHR 

FORCERROR 12$ 

BCS 15$ 

HOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRN0.T19SSR.PKTSSR 



iCLEAR FATAL ERROR FLAG 

j GET THE ADDRESS OF COrtiAND PACKET 

tDO WRITE CHARACTERISTICS COMMANO 

iMOFORCE ERROR IF FORCER-1 
}BR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



ir>$ : 



INC 
CKLOOP 



FATFLG 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORO 
.WORD 
I SET FATAL ERROR *LAG 
lLOOP ON ERROR, IF FLAG SET 

TRAP 



CiERDF 
841 

T19SSR 
PKTS5R 



C$CLP1 



F15 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 8: SUGTEST 4 LOOPBACK READ 



Ol-FEI 

STROBE TE! 



84 17:02 



SEQ 18V 



4 /or 

4 702 
4703 
4704 
4705 
4706 
4707 
4 708 
4709 
4710 

47U 

4712 

4713 

4714 



4 71b 

4 716 

471/ 
4718 
4719 
4/20 

. w 

4/23 

4 724 



4 725 
4726 

4 72 7 

4728 
4 729 
4 7 30 
4731 
4732 
4 733 
4 734 
4735 
4756 
4737 
4 736 
4739 
4 740 
4 741 
4742 
4743 
4 744 



056360 
056364 
056372 
056374 
056400 
056404 
0564.10 
056414 
0564 30 
0564 32 
056434 
0564 34 
0564 34 
056436 
056440 
C56442 
056444 
056450 
056450 

056452 
05*6456 
056462 
0564 76 
0^6500 
056502 
056502 
056502 
056504 
05651 o 
056510 
056512 
056516 
056516 



056520 
056524 
056530 
056536 

056542 
056546 
056552 
056556 
056562 
056566 
056572 
056606 
056610 
056612 
056612 
056612 
056614 

056616 



012701 
032761 
001026 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001512 
060020 
011656 
00523 7 

104406 

012704 
004?r»7 

10340 7 
010001 



104455 
001513 
057763' 
C11656' 



104406 



012703 
012337 
042737 
010337 

012 7 00 
052700 
0O473< 
012704 
010465 
004 73"' 

103407 
010001 



10445* 
001514 
060131 



062072' 
000200 

061722' 
062220' 
000000 
016146* 



000012 



22t: 



002222' 



062050 
010472 



30$} 



421: 



002222' 



002752- 

002312' 

177400 002312 

002316' 

000100 

00004 

061^02' 

06^220' 

OOOOOO 

016146' 



50$! 



IF Extandad Featurea Hardware 
Do Write Subayetem Writ* M 
MOV 0T19BFR.R1 
BIT 0X2.EXTF.XST2CR1) 
BNE 30$ 
JSR PC.T19SSXT 
MOV 0T19PK2.R4 
MOV R4 t T:DBCR5) 
JSR PC,CHKTSSR 
FORCERROR 22$ 
BCS 30$ 
MOV R0.R1 
NtXT,ERRNO 
ERRDF ERRNO , T 192SSR , PK T SSR 



i Switch Claar than: 

acellanaoua to S«t Extendad Features. 
jMESSAGE BUFFER ADDRESS 
jEXTENOEO FEATURES SUITCH SET? 
iBR IF YES 

I SETUP PACKET FOR WRITE MISC INVERT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADOHfcSS TO EXECUTE 
jWAIT FOR SSR TO SET 

jMOFORCE ERROR IF FORCER-1 
iB.* IF CA.'IRY SET (GOOO RETURN") 
I SAVE CONTENTS OF TSSR 



j DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 




TRAP 


C$c.RDF 


.WORD 


842 


.WORD 


T192SSR 


.WORD 


PKTSSR 


LAG 




FLAG SET 




TRAP 


C$CLP1 



to 



Do WRITE CHARACTERISTICS 

MOV 4T19PACKET.R4 

JSR PC.WRTCMR 

FORCERROR 42$ 

9CS 50$ 

MOV RO.RJ 

NEXT, ERRNO 

ERRDF ERRNO, T19SSR, PKTSSR 



INC FATFLG 
CKLOOP 



I SET FATAL ERROR 7 
jLOO>' ON ERROR, IF 



ael«ct r*%*rv*4 unit 7 

iGlT THC ADORESS OF COMMAND PACKET 
j DO WRITE CHARACTERISTICS COMMANO 

iBfiOTORCE ERROR IF FORCER-1 
,BR IF CARRY SET (GOOO RETURN) 
tSAVE CONTENTS Of TSSR 



(DEVICE FATAL SSR 



iSET 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
843 

T19SSR 
PKTSSR 



C$CLP1 



j REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 



MOV *TSTBLK,R3 
100$: MOV CR3)»,DATA 

BIC *tC<377>,DATA 

MOV R3.TSTPTR 
j Do a WRITE NPR to set loopback 

MOV *NP.OUT t RO 

BIS ♦NP.LOOP.RO 

JSR PC.T19SNPR 

MOV PT19PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 102$ 

BCS 105$ 

MOV RG>R1 

NEXT, ERRNO 
102$: ERRDF ERRNO , T194SSR .PKTSSR 



jGET FIRST PATTERN ADDRESS 
iGET A TEST PATTERN 
jDATA IS BYTE 

i SETUP CURRENT TSTBLK POINTER 
and tape direction OUT 
I SET TAPE DIRECTION OUT 
j SET LOOPBACK 

iSETUP T19PK2 FOR WRITE NPR 
jGET WRITE SUeSYSTEM COMMANO PACKET 
iSET THt PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSfiOFORCE ERROR IF FORCER-1 
,BR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS Of" TS r ,R 



jDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 



CtERDF 

844 

T194SSR 



UlJ 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 8: SUBTEST 4 L00P8ACK READ STROBE TEST 



SEQ 168 





056620 


011656' 




474b 


056622 


005237 


002222' 


4 746 


056626 








056626 


104406 




4 74 7 








4748 


056630 


012700 


00O001 


4 749 


056634 


004737 


061702' 


4 750 


056640 


012704 


062220' 


4751 


056644 


010465 


000000 


4752 


056650 


004 737 


016146' 


4753 


056654 






4 754 


0566 70 


103407 




4755 


056672 


01OO01 




4 756 


056674 






4757 


056674 








056674 


104455 






056676 


001515 






056700 


060352' 






056702 


03 1656' 




4758 


056704 


OOS237 


002222' 


4759 


056710 








056710 


104406 




4760 








4 761 


056712 


012700 


000001 


4 762 


056716 


012701 


002312' 


4763 


056722 


004737 


061626' 


4 764 


056726 


012704 


062220' 


4765 


056732 


010465 


OOOOOO 


4 7t>6 


056/36 


004 737 


016146' 


4767 


056742 






4 768 


056756 


103407 




4 769 


056760 


010001 




4770 


056762 






4771 


056 762 








056762 


104455 






056 764 


001516 






056766 


06C174* 






056770 


0U656 1 




4/72 


0567 72 


005237 


002222' 


4773 


056776 








0567 76 


104406 




4 7 74 








4 7 75 


057000 


012700 


000001 


4 776 


057004 


00473/ 


061606' 


4777 


05 7010 


012/04 


062220' 


4/78 


057014 


010465 


OOOOOO 


4 7 79 


05 7020 


004737 


016146' 


4 780 


057024 






4781 


05/040 


103407 




4 782 


057042 


010001 




4783 


057044 






4784 


057044 








057044 


104455 






057046 


001517 






057050 


060240* 






05705~> 


011656' 




4785 


057054 


005237 


002222' 





INC 


FATFLG 


105$: 


CKLOOP 




l 


Do a WRITE FORMAT to *«t IRE 




MOV 


*WF, I4RES.R0 




JSR 


PC.T19WFMT 




MOV 


•T19PKP.R4 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




FOPCERROR 112* 




BCS 


120$ 




MOV 


R0.R1 




NEXT.ERRNO 


112$; 


ERRDF 


ERRNO, U9B.SS>>»PKTSSR 



120$; 



132$} 



.WORD PKTSSR 
»icT FATAL ERROR FLAr 
j LOOP OK FRROR, IF FLAG SET 

TRAP C$CLP1 

»>IrtSTR - 1 
|1RESV*-->IRSTR-1 
iSFTUP I9PK2 FOR WRITE r'OPMAT 
jGET WRITE SUeSfiTEM COMMAND PICKET 
j SET THE PACKET ADUfcF.SS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCtP-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.UORD 
.WORD 
.WORD 



C$fcRDF 
845 

T198SSR 
PKTSSR 



t SET FATAL ERROR FLAG 
j LOOP ON ERROR. IF FLAG 



Do a WRITE FIFO with byt* count 

MOV ♦ l.RO 

MOV frOATA.Ri 

JSR PC.T19WTIF 

MOV *T19PK2,R4 

MOV R4.TSD6CR5) 

JSP PC.CHKTSSR 

FORCERROR 132$ 

BCS 140$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 195SSR , PKTSSR 



Imp* 



SET 
TRAP 
direction 



C$CLP1 
OUT 



•qu»l t 1 and 

lURITr .. BYTE 

iFIFO ,..*«ITE DATA ADDRESS 

l SETUP ;i ^PK2 FOR WRITE FIFO 

jGLT URl.fc SUBSYSTEM COMMANO PACKET 

i:,F.T THf- JACKET ADDRESS TO EXECUTE 

l' AIT FC SSR TO SET 

jOSCFORCE ERROR IF FORCtR-1 
,8R IF CARF.Y SET (GOOO RETURN) 
iSAVE ONVENTS OF TSSR 



I DEVICE FATAL 



GSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
846 

T195SSR 
PKTSSR 





INC 


FATFLG 


140$: 


CKLOOP 


t 


Do a 


READ FIFO witt tap* dir 




MOV 


♦ l.RC 




JSR 


PC.T19RFIF 




MOV 


*Ti9t'K2,R4 




MOV 


R4.TSLKKR5) 




JSR 


PC.CHtf*SSR 




FORCERfcuR 152$ 




BCS 


160$ 




MOV 


:3\R1 




teXl 


cUPNO 


152$ t 


E9RUF 


ERRNO, T196SSR, PKTSSR 



jSET FATAL ERROR FLAG 
j LOOP ON ERROR. IF FLAG 



SET 
TRAP 
wrl ta 



C$CLP1 
latch 



INC 



FATFLG 



too OUT to load tap* out 
j SET READ BYTE COUNT 
» SETUP T19PK2 FOR READ FIFO 
l GET WRITE SUBSYSTEM COHHANO PACKF, l 
j SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

laaDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (COOO RETURN) 
iSAVE CONTENTS Of TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP C$FRDF 

.WORD 84/ 

.UORO T19&SSR 

.WORD PKTSSR 

I SET FATAL ERROR FLAG 



HI 5 



TSV5 - HARDWARE 


TESTS 


flACRO M1113 01 


-FEg-84 


17:02 




TEST 8: 


SUBTEST 4 L00PBACK READ STROBE 








4 786 


057060 
057060 


104406 




160$: 


CKLOOP 




4787 








i 


Do a WRITE NPR to *#t 


loopback a 


4 788 


057062 


005000 






CLR RO 




4789 


057064 


052700 


000040 




BIS ONP.LOOP.RO 




4790 


057070 


004737 


061562' 




JSR PC.T19SNPR 




-♦791 


057074 


012704 


062220' 




MOV *T19PK2,R4 




4792 


057100 


010465 


oooooo 




MOV R4.TSDBCR5) 




4793 


057104 


004737 


016146' 




JSR PC.CHKTSSR 




4794 


057110 








FORCERAOR 182$ 




4 795 


057124 


103407 






BCS 190$ 




4 796 


057126 


010001 






MOV H0.R1 




4797 


057130 








NEXT.ERRNO 




4 798 


057130 
057130 
057132 
057134 
057136 


104455 
001520 
060131 1 
011656' 




182$: 


ERRDF ERRN0.T19/JSSR 


.PKTSSR 


4 799 


057140 


005237 


002222' 




INC FATFLG 




4800 


057144 
057144 


104406 




190$; 


CKLOOP 




4B01 








i 


Do a WRITE FORMAT to • 


set IRESV4- 


4802 


057146 


005000 






CLR RO 




4803 


057150 


0O4737 


061702' 




JSR PC.T19WFMT 




4804 


057154 


012704 


062220' 




MOV OT19PK2.R4 




4605 


057160 


010465 


OOOOOO 




MOV R4,TSDB(R5) 




4806 


057164 


004737 


016146' 




JSR PC.CHKTSSR 




4807 


057170 








FORCERROR 202$ 




4808 


057204 


103407 






BCS 210$ 




4809 


057206 


010001 






MOV R0.R1 




4810 


057210 








NEXT.ERRNO 




4811 


057210 
057210 
057212 
057214 
05 7216 


104455 
001521 
060352' 
011656' 




202$: 


ERRDF ERRN0,T198SSR 


.PKTSSR 


4812 


057220 


005237 


002222' 




INC FATFLG 




4813 


057224 
057224 


3 04406 




210$: 


CKLOOP 




4814 








J 


Do a WRITE FORMAT to 


set IRESV4- 


4815 


057226 


012700 


OOOOO 1 




MOV *WF. I4RES.R0 




4816 


057232 


004737 


061702' 




JSR PC.T19WFMT 




4817 


057236 


012704 


062220' 




MOV 0U9PK2.R4 




4818 


05 7242 


010465 


OOOOOO 




MOV R4,TSDB(R5) 




4819 


057246 


0O4737 


016146' 




JSR PC.CHKTSSR 




4820 


057252 








FORCERROR 222$ 




4C21 


057266 


10340 7 






BCS 230$ 




4822 


057270 


010001 






MOV R0.R1 




4823 


057272 








NEXT.ERRNO 




4824 


057272 
057272 
05 72 74 
0572 76 
05 7 300 


104455 
001522 
060352' 
011656' 




222$: 


ERRDF ERRN0.T198SSR 


.PKTSSR 


482V 


05 7302 


005237 


002222' 




INC FATFLG 




4826 


05 7306 
057306 


104406 




230$: 


CKLOOP 





SEQ 189 



I LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

nd tap* direction IN 

I CLR NP.OUT TO SET TAPE DIRF.CTION IN 
i SET LOOPBACK 

I SETUP T19PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iOflOFORCE ERROR IF FORCER- 1 
,BR IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSSR 



j DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



jSET FATAL ERROR FLAG 
i LOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIERDF 

848 

T 194 SSR 

PKTSSR 



C$CLP1 



■>IRSTR • 

iSET IRESV4-->IRSTR-0 

iSETUP T9PK2 FOR WRITE FORMAT 

iGET WRITE SUBSYSTEM COMMAND PACKET 

»SET THE PACKET ADORESS TO EXECUTE 

jWAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



(DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



j SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



1 



SET 
TRAP 



C$ERDF 
849 

T198SSR 
PKTSSR 



CJCLP1 



->IRSTR 

»IRESV4-->IRSTR-1 

I SETUP T9PK2 FOR WRITE FORMAT 

jGET WRITE SUBSYSTEM COMMANO PACKET 

jSET THE PACKET ADDRESS TO EXECUTE 

i WAIT FOR SSR TO SET 

iSaOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSStf 



i DEVICE FATAL SSR 



l SET FATAL ERROR FLAG 
iLUUP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SFT 
TRAP 



C9ERDF 
850 

T198S5R 
PKTSSR 



C$CL?1 



Il< 



~> 



TSV5 - HARDWARE TESTS hACRO M1113 Ol-FEB-84 17:02 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 



SEQ 190 



4827 










4828 


057310 


012700 


000001 




4829 


057314 


004737 


061606' 




4830 


057320 


012704 


062220' 




4831 


057324 


010465 


000000 




4832 


057330 


004737 


016146* 




4833 


057334 








4834 


057350 


103407 






4835 


057352 


010001 






4836 


057354 








4837 


057354 
057354 
057356 
057360 
057362 


104455 
001523 
060240' 
011656' 






4838 


057364 


005237 


002222' 




4839 


057370 
057370 


104406 






4840 










4841 


057372 


004737 


061760' 




4842 


057376 


012701 


057622' 




4843 


057402 


012702 


062112' 




4844 


057406 


013711 


002312' 




4845 


057412 


016261 


0OOO02 


000002 


4846 


057420 


005000 






4847 


057422 


012701 


062072' 




4848 


057426 


012702 


05 7602' 




4849 


057432 


012703 


000022 




4050 


057436 


004737 


011310' 




4851 


05 7442 








4852 


057452 


103404 






4853 


057454 








4854 


057454 
057*54 
057456 
05 7460 
057462 


104456 

001524 

061370' 

013552' 






4855 


057464 
057464 


104406 






4856 










4857 










4858 


057466 








4859 


057476 


013703 


002316' 




4860 


057502 


020327 


003062' 




4861 


057506 


103002 






4862 


057510 


000137 


056524' 




4863 


057514 








4864 










4865 


057514 
057514 
057514 


104403 






4666 










4867 


057516 


005737 


002222' 




48o8 


057522 


001402 






4869 


057524 


004737 


017014' 




4870 


057530 








46 71 











282* 



Do n READ FIFO with tape direct 

MOV *1.R0 

JSR PC.T19RFIF 

MOV *T19PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 282* 

BCS 290* 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO , T 196S5R , PKTSSR 



290*5 



302*: 



310* s CKLOOP 



INC 


FATFLG 


CKLOOP 




If Data 


read from FIFO NOT* 


JSR 


PC.T19SETEXP 


MOV 


*T19E V STA,R1 


MOV 


♦T19erSTA,R2 


MOV 


DATA.(Rl) 


MOV 


2CR2),2(R1) 


CLR 


RO 


i:ov 


♦T19BFR.R1 


MOV 


♦T19EXP.R2 


MOV 


*18. ,R3 


JSR 


PCCKMSG2 


FORCERROR 302*,N0TSSR 


BCS 


3101 


NEXT. ERRNO 


ERRHRO 


ERRNO. T19RSTR.MSGSU6 



355* : 



FORCEXIT 355$ 

MOV TSTPTR.R5 

CMP R3.PTBLEND 

BH1S 355* 

JMP 100* 



ENDSUB 



360*: 



TST 


FATFLG 


BEQ 


360* 


JSR 


PC.CKDROP 



ion IN to read data 
{SET READ BYTE COUNT 
I SETUP T19PK2 FOR READ FIFO 
i GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jUAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER- 1 
jBR IF CA l «RY S r :T (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 



TRAP 


C*ERDF 


.WORD 


851 


.WORD 


T196S5R 


.WORD 


PKTSSF. 



I SET FATAL ERROR FLAG 
{LOOP ON ERROR. IF FT AG SET 

TRAP CICLP1 
to Data e«nt Then Print Sr^or 

j SET WORDS 0-7 EXPD-^ECV CNOT TESTING) 

{GET EXPECTED READ STATUS 

{GET RECV READ STATUS 

iSET EXPD WORD 08 - DATA 

j SET EXPD WORD 09 ■ RECV (NOT TESTING) 

i HIGH RECV AOORESS FOR CKMSG2 

i LOU RECV ADDRESS FOR CKMSG2 

j EXPD ADDRESS 

{NUMBER OF BYTES TO COMPARE 

{EXPO EQUAL RECV? 

»6»0 

{BR IF YES 

{REPORT ERROR 



TRAP 


C*ERHRD 


.WORD 


852 


.WORD 


T19RSTR 


.WORD 


M5GSUB 


(LOOP ON ERROR, IK FLAG SET 




TRAP 


C*CLPl 


lOSf. 




; RESTORE CERENT TSTBLK POINTER 




itNO OF TSTBLK? 




;BR IF YES 




{DO ANOTHER TSTBLK PATTERN 





x /////, ////// END SUBTEST //,'////// 

L 10072: 

TRAP C5ESUB 

{ANY FATAL ERRORS ? 

{BRANCH If NOT 

{TRY TO DROP THE UNIT 



J15 



TSV5 - HARDUARE TESTS MACRO M1113 01-FEB-84 17:05 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 



4872 



4875 

4874 

4875 

4676 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4694 

4895 

4896 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

491/ 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 



057530 
057530 
057532 



057536 
057536 
057540 
057542 
057544 
057546 
057550 
057552 
057554 
057556 
057560 
057562 
057564 
057566 
057570 
05/572 
05757*: 

057576 

057576 
057577 
057600 
057601 

057602 
057602 
057604 
057606 
057610 
057612 
05/614 
057616 
057620 
057622 
057722 



104432 
002602 



057534 000000 



000001 
000002 
000004 
000010 
00200C 
000040 
000100 
000200 
004000 
010000 
020000 
040000 
100000 
000000 

oooooo 

000000 



377 
037 
360 
000 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



EXIT 



TST 



\////////// EXIT TEST 



SEQ 191 



////////// 

TRAP CiEXIT 
.WORD L10066 



i ♦ 



{LOCAL STORAGE TOR THIS TEST 



t - 



.WORD 



T19PREV: 

I LOOPBACK DRIVE SIGNAL TABLE 

I THIS TABLE IS USED BY T19CNVT TO SETUP 

I A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN, 



I DRIVE SIGNAL 1-0 TRANSITION FLAG 



WRITE CONTROL SIGNALS ARE OF FORM UIC.XXX 
WRITE FORMAT SIGNALS ARE OF FORM WF.XXXX 



T19BFCTL} 







WC.IGO 






WC.JFEN 






WC.IRWU 






WC.IREW 






WF.IERASE+256 






UC.I1TAD 






WC.IOTAD 






WC.IFAD 






WF.IEDIT*256. 






WF.IUFM*256. 






WF.IREV*256, 






Wf ,IWRT*256. 






UF.IHISP*256. 






. WORD 






.WORD 






.WORD 


TJ.9MSK: 








.BYTE 


tC<000> 




.BYTE 


tC<340> 




.BYTE 


*C<017> 




.BYTE 





T19EXP: 








.WORD 







.WORD 







.WORD 







.WORD 







.WORD 







.WORD 







.UORO 







.WORD 





T19EXSTA 


: . BLKB 


64. 


U9EXEND 


: 





jWRITC 

iIGO-- 

lIFEN- 

jIRWU- 

iIREW- 

lIFAD- 

jITADl 

I IT ADO 

lIERAS 

iIEDIT 

jlWFM- 

iIREV- 

ilWRT- 

jIHISP 

t!RESV2 

i iRESVl 

iPARERR 



CONTROL 
>IFPT 
IFBY 
IRWD 
ID8Y 
ILDP 
>IONL 
>IRDY 
•>ISPEED 



DRIVE SIGNALS 
DATA<0> 
DATA<1> 
DATA<2> 
DATA<3> 
DATA<4> 
0ATA<5> 
DATA<6> 
DATA<7> 



>XHER DATA<8> 
IFMK DATA<9> 
ICER DATA<10> 
IIDENT DATA<11> 
>IEOT DATA<12> 
(UNUSED)DATA<i3> 
(l*!USED)DATA<14> 
CUNTF5TED)DATA<15> 



STATUS 9YTES 



l MASK OF UNTESTED BITS IN READ 

»UNM iTED BITS ARE SET TO 1 

iBYTE MASK 

jBYTE 1 MASK (PARERR , IRESV2 , IRfcSVn 

;BYTE 2 (TIMER A, TIMER B .UNDEFINED* 1 :0O 

j MAKE IT EVEN 

; BEGIN EXPECTED DATA BUFFER 
jMESSAGE TYPE 
j DATA FIELD LENGTH 
;R6PCR 
jXSTO 
jXSTl 
S XST2 
IXST3 

; XST4 (ALWAYS PRESENT 

lEXPECTED READ STATUS 

,END EXPECTED 



FOR WRITE SUB. ) 
AND WRITE Y IFO DATA 
DATA BUFFER 



s * 



j LOCAL TEXT MESSAGES FOR TEST 



TSV5 - HARDWARE TESTS MACRO M1113 < 
TEST 8: SUBTEST 4 LOOPBACK REAj STRO! 



\k 



i-64 
T 



17:02 



K15 



SEQ 192 



4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

494 3 

4944 

4945 

4946 

494 7 

4948 

4949 

4950 

4951 

4952 

<953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

49/0 

4971 

49/2 

4973 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

498? 

4983 



057722 
057763 
060020 
060064 
060131 
060174 
060240 
060303 
060352 
060420 
060502 
060576 
060664 
060740 
061023 
061111 
061200 
061263 
061370 



061474 
061474 
061500 
061504 
061510 
061512 
061514 
061516 



061520 
061520 
061524 
061530 
061534 
061536 



061540 
061540 
061544 
061550 
061554 
061560 



124 
127 
127 
127 
127 
127 
127 
127 
127 
106 
122 
124 
122 
106 
124 
103 
122 
114 
114 



00473 7 
012700 
112720 
105010 
000207 



004/37 
012700 
112720 
112710 
000207 



162 
122 
122 
122 
122 
122 
122 
122 
122 
111 
145 
141 
145 
111 
141 
157 
145 
157 
157 



012701 062072' 

012702 000120 
105021 
005302 
003375 
000207 



061474 
062230 
000005 



061474' 
062230' 
000010 
000030 



141 
111 
111 
111 
111 
111 
111 
111 
111 
106 
141 
160 
141 
106 
160 
156 
141 
157 
157 



TST19ID: 

T19SSR: 

T192SSR; 

T193SSR: 

T194SSR: 

T195SSR: 

T19&SSR; 

T197SSR: 

T196SSR: 

T191CMP: 

T192CMP: 

T193CMP: 

T195CMP: 

T196CMP: 

T197CMP: 

T19CCMP: 

T199CMP: 

T19W5TR: 

T19RSTR; 



.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



ASCIZ 

WRITE 

WRITE 

WRITE 

WRITE 

WRI T E 

WRITE 

WRITE 

WRITE 

FIFO 

Rtad 

Tope 

Rtad 

FIFO 

Tap* 



' Transport Bus Interface Loopback' 
CHARACTERISTICS Failed' 
SUBSYSTEM (Writ* Mlsc) Failed' 
(Read Status) Failed' 
(Write Npr) Foiled' 
(Write FIFO) Failed' 
(Read FIFO) Foiled' 
(Write Control) Failed' 
(Write Format) Fai led' 
WORD 09 Incorrect after 



SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
Status 



i n 



Ini t ialize' 
FIFO Data not eoual to Write FIFO , Data is in WORD 
Status 2 (in WORD 08) Incorrect after RESET TAPE' 
FIFO Data not equal to Write FIFO Data' 
Status (in WORD #9) Incorrect after READ FIFO' 
Status 2 (in WORD 08 ) Incorrect rfter RESET TAPE' 
Control Signal Loopback Data Error. Da-ca is in WORD 08' 
Read/Write Loopback Data Error, Data is in WORD 08' 
Loopback Data Error when strobed by Write strobe, Data 
Loopback Data Error when strobed by Read Strobe, Data 



06' 



is in WORD 0Q- 
s in WORD 08' 



j CLEAR MESSAGE BUFFER 



T19CLRBUF: 




t 


SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 


MOV 


0T19BFR.R1 


jGET MESSAGE BUFFER ADDRESS 


MOV 


0T19BEND-T19BFR.R2 


{SIZE OF MESSAGE BUFFER IN BYTES 


10$ j CLRB 


(Rl)f 


iCLEAR A BYTE 


DEC 


R2 


;DONE? 


BGT 


10$ 


j BR IF NO 


RTS 


PC 


;RETURN 



; * 



SETUP T19PK2 PACKET FOR READ STATUS 



T19SRDJ 




JSR 


PC.T19CLRBUF 


MOV 


OU9DT2.R0 


MOVB 


OPW.RDSTATUS.(RO)* 


CLRB 


(RO) 


RTS 


PC 



j CLEAR MESSAGE BUFFER 

jWRITE SUBSYSTEM DATA BUFFER 

i STORE READ STATUS COMMAND IN BSELO 

i CLEAR BSEL1 

; RETURN 



; SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Statu- F -FLOPS 



T19RSFIF: 

JSR 

MOV 
MOVB 
MOVB 
RTS 



PCT19CLRBUK 

OT19DT2,R0 

OPW,UMISC,(R0)> 

OMS.RSFIF!MS,RSTAP,(RO) 

PC 



l CLEAR MESSAGE BUFFER 

jWRITE SUBSYSTEM DATA BUFFER 

; STORE WRITE MISCELLANEOUS IN BSELO 

I STORE BSEL1 CLEAR FIFO CODES 

l RE TURN 



SETUP T19PK2 PACKET FOR WRITE NPR 



L15 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 
TEST 8; SUBTEST 4 LOOPBACK READ STROBE TEST 



SEQ 193 



4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

502/ 

5028 

5029 

5030 

5031 

5032 

SO 3 3 

5034 

5035 

5056 

503 7 

5038 

5039 

M)40 



061562 
061562 
061566 
061572 
061576 
061602 
061604 



061606 
061606 
061612 
061616 
061622 
061624 



061626 
061626 
061632 
061636 
061642 
061646 
061650 
061652 
061654 
061656 
061660 



061662 
061662 
061666 
061672 
0616/6 
061700 



004737 
012701 
112721 
052700 
110011 
000207 



004737 
012701 
112721 
110021 
000207 



004737 
012702 
112722 
110022 
005022 
112122 
005300 
0033/5 
000207 



004 737 
012701 
112721 
110021 
000207 



0614 74' 
062230' 
000011 
000020 



061474' 
062230' 
000003 



061474 
062230 
000004 



061474' 
062230' 
000006 



i INPUT: 



RO CONTAINS BSELl NPR DATA 

SETS NP.WRP SINCE IT IT WRITES WRONG PARITY. 



T19SNPR: 




JSR 


PC.T19CLRBUK 


MOV 


0T19DT2.R1 


MOVB 


0PW.WNPR,(R1)» 


BIS 


ONP.WRP, RO 


MOVB 


RO.CRl) 


RTS 


PC 



j CLEAR MESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
I STORE WRITE NPR IN BSELO 
jDON'T WRITE WRONG PARITY 
jSTORE NPR DATA IN BSEL1 
{RETURN 



{ * 



SETUP T19PK2 PACKET FOR READ FIFO 



INPUT : 



RO CONTAINS SEL2 BYTE COUNT 



T19RFIF- 




JSR 


PC.T19CLRBUF 


MOV 


*T19DT2,R1 


MOVB 


OPW.RFIF0.CR1)* 


MOVB 


RO,(Rn + 


RTS 


PC 



CLEAR MESSAGE BUFFER 
WRITE SUBSYSTEM DATA BUFFER 
STORE READ FIFO IN BSELO 
STORE BYTE COUNT IN BSELl 
{RETURN 



SETUP T19PK2 PACKET FOR WRITE FIFO 



j INPUT 



T19WFIF 



RO CONTAINS BYTE COUNT 

Rl CONTAINS DATA PATTERN BLOCK ADDRESS 



10$: 



SETUP 
INPUT: 



SAVREG 




JSR 


PC.T19CLRBUF 


MOV 


0T19DT2.R2 


MOVB 


*PU'.WFIF0,CR2)* 


MOVB 


R0.CR2)* 


CLR 


CR2)» 


MOVB 


(R1)*,(R2)» 


DEC 


RO 


BGT 


10$ 


RTS 


PC 


T19PK2 


FOR WRITE CONTROL 



;SAVE Rl R5 UNTIL NEXT RETURN 

{CLEAR MESSAGE BUFFER 

{WRITE SUBSYSTEM DATA BUFFER 

{STORE WRITE FIFO IN BSELO 

{STORE BYTE COUNT IN BSELl 

; CLEAR SEL2 (UNUSED) 

{STORE DATA PATTERN BYTE 

iDONE ALL BYTES? 

{BR IF NO 

{RETURN 



HO CONTAINS DRIVING DATA PATTERN 



T19WCTL: 




JSR 


PC, T19CLRBUF 


MOV 


0T19DT2.RI 


MOVB 


OPW.WCTL ,(R1)» 


MOVB 


R0,(R1)» 


RTS 


PC 



{CLEAR MESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
jSTORE WRITE CONTROL TN BSELO 
{STORE DATA WORD IN BSELl 

{RETURN 



j SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER 



M15 



112721 
110021 
000207 



TSV5 - HARDWARE TEST 
TEST 8: SUBTEST 4 L 



5041 
5042 
5043 
5044 

5045 061702 

5046 061702 
504 7 061706 

5048 061712 

5049 061716 

5050 061720 
5051 

5052 
5053 

5054 061722 

5055 061722 

5056 061726 

5057 061732 

5058 061736 
5059 

5060 
5061 

5062 061740 

5063 061740 

5064 061744 

5065 061750 

5066 061752 

5067 061754 

5068 061756 
50t>9 

5070 
5071 
50/2 

5073 061760 

5074 061760 

5075 061764 
50 76 0617^0 

5077 061/74 

5078 061776 

5079 062000 

5080 062002 
5081 

5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 



MACRO M1113 < 
OPBACK READ STROI 



IHI 



it 84 



17:02 



SEQ 194 



004 737 0614 74' 
012701 062230* 



012701 
012700 
105021 
005300 
003375 
000207 



012702 
012703 
012700 
012322 
005300 
003375 
000207 



000007 



012700 062230 1 

112720 000010 

112710 000200 
000207 



057602 
000120 



057602' 
062072' 
000010 



INPUT: 



RO CONTAINS DRIVING DATA PATTERN 

j CLEAR MESSAGE BUFFCR 

j WRITE SUBSYSTEM DATA BUFFER 

; STORE WRITE FORMAT IN BSELO 

{STORE DATA WORD IN BSEL1 

{RETURN 

SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 

T19SEXT: 



T19WFMT: 




JSR 


PC.T19CLRBUF 


MOV 


0T19DT2.R1 


MOVB 


*PW.WFMT,(R1)+ 


MOVB 


R0,(R1)* 


RTS 


PC 



MOV 4T19DT2.R0 

MOVB OPW.WMISC.CRO)* 

MOVB *MS.EXT,(RO;) 

RTS PC 

CLEAR EXPECTED DATA MESSAGE BUFFER 



T19CLEXP: 

MOV 
MOV 

10$: CLRB 
DEC 
BGT 
RTS 



0T19EXP.R1 

4T19EXEND-U9EXP.R0 

CRD* 

RO 

10$ 

PC 



{WRITE SUBSYSTEM DATA BUFFER 
{STORE WRITE MISCELLANEOUS IN BSELO 
|ST0R C . INVERT EXTENDED FEATURES IN BSEL1 
j RETURN 



{GET EXPD ADDRESS 
{GET EXPD SIZE 
{CLEAR A BYTE 
;DONE? 
{BR IF NO 
{RETURN 



Set WORDS 0-7 of expd message BUFFER a to recv since not testing 



0T19EXP.R2 
$T19BFR $ ht3 
48. ,R0 

(R3)»,(R2)» 

RO 
5$ 
PC 



{GET EXP'J 

{GET READ STATUS RECV BUFFER 

{SET WORDS 0-7 EXP-RECV 

{SET EXPD-RECV 

;D0NE WORDS 0-7 WORDS? 

{BR IF NO 

{RETURN 



T19SETEXP: 

MOV 
MOV 
MOV 
5$i MOV 
DEC 
BGT 
RTS 

; ♦ 

{ CONVERT A TEST PATTERN DATA UORD TO LOOPBACK DRIVE SIGNALS 

INPUTS: 

RO TEST PATTERN 
IMPLICIT INFUTS: 

T19BFCTL - CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 
OUTPUTS: 



RO 



- LOW BYTE CONTAINS WRITE. CONTROL DATA 

- HIGH BYTE CONTAINS WRITE FORMAT DATA 



TSV5 - HARDWARE TESTS MACRO M1113 Ql-FFR-84 17;02 
TEST 8 j SUBTEST 4 LOOPBACK READ STROBE TEST 



N15 



SEQ 195 



5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5115 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5136 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

514A 

5149 

5151 

5153 

5154 

5155 

5156 

5157 

S156 



062004 
062004 
062010 
062014 
062016 
062022 
062024 
062026 
062030 
062032 
062034 
062036 
062040 



062042 



062050 
062050 
062052 
062054 
062056 

062060 
062060 
062062 
062064 
062066 
062070 



072 
< >72 
I'.- 074 
Ot>2076 
062100 
062102 
062104 
062106 
062110 
0b2112 
062212 



062212 
062220 

062220 
062222 

062224 
062226 



012701 
005002 
012703 
006000 
103001 
051102 
005721 
005303 
003372 
010200 
000207 



100004 
062060 
000000 
000012 



062072' 

000000 

000024 

000000 

000007 



000000 
000000 

oooooo 

000000 

oooooc 
oooooo 
oooooo 
oooooo 



lOOOOf- 
062230 

oooooo 

000012 



057536' 
000020 



T19CNVT 


j 








SAVREG 




iSAVr R1-R5 UNTIL NEXT RETURN 




MOV 


i»T19BFCTL,Rl 


{CONVERSION TABLE ADDRESS 




CLR 


R2 


jINIT RESULT OF CONVERSION 




MOV 


#16. ,R3 


jBIT COUNT 


10$: 


ROR 


RO 


jIS THIS BIT EQUAL TO 1? 




BCC 


20$ 


}BR IF NO 




BIS 


(R1),R2 


{SET CONVERTED BIT 


20$: 


TST 


CRD* 


{POINT TO NEXT BIT IN CONVERSION 




DEC 


R3 


; DONE ? 




BGT 


10$ 


;BR IF NO 




MOV 


R2.R0 


5 COPY RESULT 




RTS 


PC 


{RETURN 



TABLE 



.BLKB 10- <. -TSV267> 

WRITE CHARACTERISTICS COMMAND PACKET 



T19PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 



T19DATA: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



100004 

T19DATA 



10. 



T19BFR 



20. 



7 



! COMMAND PACKET FOR TEST 

} WRITE CHARACTERISTICS COMMAND, WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{MINIMUM MESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 



{LENGTH OF MESSAGE BUFFER 
jf.SS.ENB.EAI.ERI 
{EXTENDED FEATURES UNIT 



NO. 



i MESSAGE BUFFER FOK ALL TEST 8 COMMANDS 



T19BFR: 




.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





T19BFSTA; .BLKB 


64. 


T19BEM0: 




•WRITE SUBSYSTEM READ STATUS C 


.BLKB 


10-' . TSV267> 


T19PK2: 




.WORD 


P.WRrSUBiP.ACK 


.WORD 


T19DT2 


.WORD 





.WORD 


10. 



;BEGIN MESSAGE BUFFER 

{MESSAGE TYPE 

{DATA FIELD LENGTH 

sRBPCR 

jXSTO 

{XST1 

f XST2 

} XST3 

jXST4 

{READ 

;END 



(ALWAYS PRESENT FOR WRITE SUBSYSTEM 
STATUS AND WRITE FIFO BUFFER 
OF MESSAGE BUFFER 



{WRITE SUBSYSTEM WITH ACK 
{LOW ADDRESS OF DATA BLOCK 
{HIGH ADDRESS OF DATA BLOCK 
{MINIMUM MESSAGE PACKET SIZb 



B16 



TSV5 - HARDWARF TESTS MACRO M1113 01 -FEB 84 17 { 02 
TEST fli SUBTEST 4 LOOPBACK READ STROBE TEST 



SEQ 196 



5159 
5160 
5161 
5162 
5165 
5164 
5165 
5)66 



062230 

Oo2230 000 
062231 000 
06223? 000000 
062234 



T19DT2t 



516 

M6« 

5lu9 

5170 

51/1 

5172 

5173 

5174 

5W5 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

519/ 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

520 7 

5208 

5209 

5210 

5211 

5212 

5213 



062334 

062334 

062334 104401 



,BYTE 
.BYTE 
.WORD 
.Bl.KB 



ENDTST 






64 



iDATA BLOCK 
iBSELO 
iBSELl 
|SEL2 
IWRITE FIFO 



DATA OUTPUT BUFFER 



L 10066: 



TRAP 



CJETST 



.SBTTL TEST 9j READ'WRITE DATA PARITY TEST 



TEST DESCRIPTION; 



Thie teat verlfiea that the Write Data Parity generator 

and the Reed Data Parity checker operate proparly. The 

Treneport Bue eignel loopbeck mode !a enabled and a 

Sat Wrong parity function la executed. Than vorloue 

Write Subayatem Memory functione are performed to 

write data to and from the FIFO in loopback mode. 

The program then checke to ineure a Read Data parity 

error occurred. 

A Reaet FIFO ia done mvi the Read Data parity 

error bit la again teated to ineure it cleared. 

Finally a Clear wrong parity function ia done 

mr\d it la verified the data word can paaa in loopback 

mode without tatting Read Data parity error. 



TEST STEPS? 



Initialize the controller 



to TSSR reglater to aoft 
WRITE CHARACTERISTICS to check for Extended Featurea Switch 



REPEAT FOR LOOPCNT 
BEGIN 

Write to TSSR reg 

Do WRITE CHARACTER 

If Extended Features Hardware Switch Clear then: 

Oo Write Subayatem Write Miecellaneoue to Set Extanded features. 
Du WRITE CHARACTERISTICS to aelect reeerved unit 7 and aetup BUFFER 
REPEAT FOR ALL TEST PATTERNS IN TSTBLK TA8LE 
BEGIN 

Verify Write Wrong Parity Seta Parity Error *) 

a WPITE NPR to eat loopbeck mr^6 tape direction OUT 

and 'jET Write Wrong Parity, 
a WRITE FORMAT to aet IRE5V4-->IR5TR • l (eete read atrobe high) 
• WfUTE FIFO with byte count eoual to 1 and Tape direction OUT 
a READ FIFO with tape direction OUT to load tape out write Inter, 
(thia la when wrong parity (IwP) ia aet) 
Oo a WRITE FORMAT to aet I&ESV4- - >IRSTR - (aeta raad atroba low) 

PAR IN H (Parity Error]) 

IRESV4«->IRSTR ■ 1 (aeta reao atroLe high) 
STATUS 
NOT-i 



(♦ 
Oo 

Do 
Do 
Do 



(Read Strobe aeta 
Do • WtUTE FORMAT to aet 
Do • Write Subayatem READ 
If Read Data parity error 
Do a Write Mlac to RESET FIFO 
Do • Write Subayatem REAO STATUS 
If Read Data parity error N0T«0 



Then Pr int Error 



Then Pr int Error 



(* Verify Dete can be. trem*f erred without a Parity Error *) 



V-V5 
TtST 



^MUI^BataWtY 1 ^ 



Ol-FEB-84 I7t02 



C16 



SEQ 197 



5214 
5215 
52 16 

521 / 
5018 

5219 
5220 

5221 
5222 

5224 

5226 

522 7 
5228 
5229 

5254 
5235 
5236 
5237 
5258 
5239 



5240 
5241 
5242 
524 3 
5244 
5245 



5246 
524 7 
5248 
5249 
5250 
5251 
5252 
5253 
5254 



5255 
5256 

5257 
5258 
5259 
5260 
5261 
526^ 



062336 
062331 
062336 
062342 
062546 
062354 

062354 
062354 
062354 

062356 
062356 
062362 
062364 
062366 
062366 
062370 
062370 
062374 

062376 
062402 
062406 
062412 
062426 
062430 
0624 32 
062452 
0624 52 
062454 
062436 
062440 
062442 
062446 
062446 



052450 
062454 

062462 
062464 



012700 
004757 
012737 



104402 



004737 
103405 
010001 

104455 
001604 
003646' 
011644' 

005037 
012704 
004737 

103407 
010001 



104455 
001605 
064751 
011656 
005237 

104406 



Do 
Do 

Do 
Do 
Do 

Do 
Do 
If 



WRITE FORMAT to aat IRESV4- - >IRSTR • 1 (aata re©o strobe h.o/O 
WRITE NPR to aat loopoack mnd tapa direction OUT 



and CLEAR Writ* Wrong Par it 

count aqual to 



1*1 



WRITE FIFO with byta count aqual to 1 *nd Tap* diraction OUT 
READ FIFO with tmp* diraction OUT to lead tap* out writ* lotch 
WliTE FORMAT to aat IRESV4- ■ >IRSTR • (aata raad atroba low) 

(Raad Stroba ahould NOT **t PAR IN H [Parity Error] hara) 
WRITE FORMAT to aat IRESV4-- >IRSTR - 1 (sat* raad stroba high) 
Writa Subayatam READ STATUS 



Raad Data parity ^rror NOT-0 Thart Print Error 



END 



064 722' 
016322' 
000012 



002216' 



T20LOOP: 



BGNTST 

MOV 
JSR 
MOV 



*TST20ID.R0 

PC.TSTSETUP 
010..LOOPCNT 



T9: : 
lACCII MESSAGE TO IDENTIFY 
jDO INITIAL TEST SETUP 
iPERFORM 10 ITERATIONS 



TEST 



BGNSU6 



015604 



J 
51: 



t//////////// BEGIN SUBTEST ////////// 

T9.lt 

TRAP CI8SUB 

Writa to TSSR raQiatar to soft initial!** tha controllar 



JSR PC.SOFINIT 

BCS 101 

MOV R0.R1 

ERRDF ERRNO , SF "TERR , SF IMSG 



IWRITE 10 TSSR TO SOFT INITIALIZE 
iHR IF SOFT INIT OKAY 
»SAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING INIT 

TRAP 



002222' 
066130* 
010472' 



10*: 



12* i 



Do WRITE CHARACTERISTICS 

CLR FATFLG 

MOV *T20PACKET,R4 

JSR PC.WRTCHR 

FORCERROR 12* 

BCS 151 

MOV R0.W1 

NEXT. ERRNO 

ERRDF ERRNO , T 20SSR , PK T SSR 



.WORD 

.WORD 
.WORD 

Switch 



CIERDT 

900 

SFIERR 

SFIMSG 



to chacU for E*tandad FaaUiraa 
iCLEAR FATAL ERROR FLAG 
I GET THE ADDRESS OF COMMAND PACKET 
iDO WRITE CHARACTERISTICS COMMAND 

tWDFORCE ERROR IF FORCER -1 
iBR IF CARRY SET { GOOO RETURN) 



l SAVE CONTENTS OF TSSR 



iDEVlCE FATAL SSR 



002222 



012701 066152' 

032761 000200 QQQ012 

001026 

004757 066036 1 



15*2 

i 
l 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



FAILFD TO SET 
TRAP 
.WORD 
.WORD 

. WORD 



SET 

TRAP 



CfERDF 

901 

rjossR 

PKTSVtR 



i.iCLPl 



If Entandad Faaturaa Hardwara Switch Claar than: 

Oo Writa Subayatam Writa M1«Q«1 lanaoua to Sat Entandad Features. 
MOV *T20BFR,R1 iMESSAGE BUFFER ADDRESS 

BIT *X2.fXTF,XST2(Rn lExTENDEO FEATURES SWITCH SET? 

BNE 30* iBR V YES 

JSR PCtT^OSEXT iSETUR PACKET FOR WRITE MISC INVERT 



DIG 



TSV5 • HARDWARE TFSTs MACRO Mill 
TEST 9; RF.AD/WRITE DATA PARITY tE 


5263 0624 70 


012 704 


06^300' 


5264 0624 74 


010465 


000000 


5265 06250O 


004737 


016146* 


5266 062504 






5267 062520 


103407 




5268 062522 


010001 




5269 062524 






5270 062524 






062524 


104455 




062526 


001606 




062530 


065006' 




062532 


011656' 




52 71 062534 


005237 


002222' 


5272 062540 






062540 


104406 




5273 






5274 062542 


012704 


066130' 


5275 062546 


0O4737 


010472' 


52 76 062552 






52 7 7 062566 


103407 




527d 062570 


010001 




5279 062572 






5280 062572 






062572 


104455 




062574 


001607 




062576 


064751' 




062600 


011656' 




5281 062602 


005237 


002222' 


5282 062606 






062606 


104406 




5283 






5284 






5285 






5286 062610 


012703 


002752' 


5287 062614 


012337 


0O2312' 


5288 062620 


042737 


17 740C 00 


5289 062626 


010337 


002316' 


5290 






5291 






j292 062632 


012700 


000100 


5293 062636 


052 700 


0O0O40 


5294 062642 


042700 


000020 


5295 062646 


004737 


065706' 


5296 062652 


012704 


066300' 


5297 062656 


010465 


000000 


5298 062662 


004737 


016146' 


5299 062666 






5300 062702 


10340/ 




5501 062704 


010001 




5302 062706 






5303 062706 






062706 


104455 




062710 


001610 




062/12 


065117' 




062714 


011656' 




5304 062 716 


005237 


002222' 


5305 062/22 







Ol.FF.B-84 17:02 



SEQ 198 



MOV *T20PK2,R4 
MOV R4,TSDB(R5) 
JSR PC.CHKTSSR 
FORCERROR 22$ 
BCS 30$ 
MOV R0.R1 
NEXT, ERRNO 
22ti ERRDF ERRNO, T202SSR, PKTSSR 



INC FATFLG 
30$: CKLOOP 

I Do WRITE CHARACTERISTICS to s« 

MOV *T20PACKfcT,R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV P0.R1 

NEXT. ERRNO 
42$: ERRDF ERRNO, T20SSR, PKTSSR 



INC FATFLG 
50$: CKLOOP 



iGET WRITE SUBSYSTEM COMMAND PACKET 
» SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

IS90FORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSiJR 



j DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



;^T FATAL ERROR FLAG 
l LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
902 

T202SSR 
PKTSSR 



C$CLP1 



lact r«*«rv«d unit 7 

iGET THE ADDRESS OF COMMAND PACKET 
»D0 WRITE CHARACTERISTICS COMMAND 

iSQOFORCE ERROR IF FORCER "1 
iBR IF CARRY SET CGOOO RETURN) 
l SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
903 

T20SSR 
PKTSSR 



C$CLP1 



REPEAT FOR 
MOV 



100$ 



MOV 
BIC 
MOV 
Do ( 

MOV 
BIS 

BIC 
JSR 
MOV 
MOV 
JSR 



ALL TEST PATTERNS IN 
♦TSTBLK, R3 
(R3V.0ATA 

*tC<377>,DATA 
P3,TSTPTR 
WRITE NPR to sat loopbftcW 
arid SET Writ* Wrong 
♦NP.OUT.RO 
<*#\L0OP,R0 
♦NP.WRP.RO 
PCT20WNPR 
♦T20PK2.R4 
R4.TSDB(R5) 
PC.CHKTSSR 

1C2$ 



102$ 



FORCERROR 

BCS 105$ 

MOV R0,R1 

NEXT, ERRNO 

ERRDF ERRNO, T204SSR, PKTSSR 



TSTBLK TABLE 

iGET FIRST PATTERN ADDRESS 
iGET A TEST PATTERN 
iPATA IS BYTE 

l SETUP CURRENT TSTBLK POINTER 
and taoa direction OUT and 
Parity. 

I SET TAPE DIRECTION OUT 

i SET LOOPBACK 

I SET WHITE WRONG PARITY (INVERTED) 

j SETUP T20PK2 fC^ WRITE NPR 

jGET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

iWAIT FOR SSR TO SET 

iMDFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



105$ 



INC 
CKLOOP 



FATFLG 



IDEVICE FATAL SSR 



jSF T FATAL ERROR f LAG 

I LOOP ON ERROR, IF FLAG SET 



FAILED 


TO SET 






TRAP 


C$bRDF 




.WORD 


904 




.WORD 


K:04SJR 




.WORD 


PKTSSR 



E16 



TSVb - HARDWARE TESTS MACRO M1U3 01-FEB-84 17;02 
TEST 9: READ/WRITE DATA PARITY TEST 



5506 
530 7 
5308 
5309 
5310 
53H 
5312 
5313 
5314 
5315 
5316 



5317 
5318 

5319 
5320 
5321 
5322 
!5323 
5324 
5325 
5326 
532 7 
5328 
5329 
5330 



5331 
5332 

5333 
5334 
5335 
5336 
5337 
5338 
5339 
5540 
5341 
5342 
5343 
5344 



5345 

5346 



062722 104406 



062724 
062730 
062734 
062740 
062744 
062750 
062 764 
062766 
062770 
062770 
062770 
062772 
062774 
062 7 76 
063000 
063004 
063004 

063006 
063012 
063016 
063022 
063026 
063032 
063036 
063052 
063054 
063056 
063056 
063056 
063060 
063062 
063064 
063066 
063072 
063072 



063074 
063100 
063104 
063110 
063114 
063120 
063134 
063136 
063140 
063140 
063140 
063142 
0*>3144 
063146 
063150 
063154 
063154 



012700 000001 

004737 066002' 

012704 066500' 

010465 000000 

004737 016146' 

10340 7 
010001 



104455 

001611 

065271' 

011656* 

005237 002222 * 

104406 

012700 0O0001 

012701 002312' 
004737 065746' 
012704 066300' 
010465 OOOOOO 
004737 016146' 

105407 
010001 



104455 

001612 

065162* 

011656' 

005237 002222 

104406 



012700 OOOOOl 

004737 065726 1 

012704 066300' 

010465 OOOOOO 

004737 016146' 

103407 
010001 



104455 

001613 

065226' 

011656* 

00523 7 002222' 

104406 



1601} 

i 



Do a WRITE FORMAT to 
MOV *WF. I4RES.R0 
J5R PC.T20WFMT 
MOV 0T20PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 112$ 
BCS 120* 
MOV RO.Rl 
NEXT.ERRNO 



set 



SEQ 199 



TRAP C*CLP1 
IRESV4--'IRSTR » 1 (sets read strobe high) 
|IRESV4-->IRSTR - 1 
j SETUP T20PK2 FOR WRITE FORMAT 
»GET WRITE SUBSYSTEM COMMANO PACKET 
i SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

lOSOFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



112$ s ERRDF ERRNO, T208SSR, PKTSSR 



jDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C*ERDF 
905 

T208SSR 
PKTSSR 



INC 


FATFLG 


120$: CKLOOP 


i Do a 


WRITE FIFO with 


MOV 


#1,R0 


MOV 


eOATA.Rl 


JSR 


PC.T20WFIF 


MOV 


♦T20PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


FORCERROR 152; 


BCS 


1601 


MOV 


R0.R1 


NEXT 


.ERRNO 



j SET FATAL ERROR FLAG 
lLOOP ON ERROR. IF FLAG 



Top* 



SET 
TRAP 
direction 



C*CLP1 
OUT 



byte count equal to 1 and 
jWRITE 1 BYTE 
jFIFO WRITE DATA ADDRESS 
jSETUP T20PK2 FOR WRITE FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
tSET THE PACKET ADDRESS fO EXECUTE 
iWAIT FOR SSR TO SET 

jSaDfORCE ERROR IF FORCER-1 
;BR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



152*! ERRDF ERRNO, T205SSR , PKTSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C*ERDF 
906 

T205SSR 
PKTSSR 



jSET FATAL ERROR FLAG 
i LOOP ON ERROR, IF FLAG 



Do a READ FIFO with top« direction 
(this is when wrong parity (IWP) 



OUT to load 

i* *«t) 



twpe out 



SET 
TRAP 

write 



CiCLPl 
latch 



MOV 91. RO 

JSR PC.T20RFIF 

MOV 0T20PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 



FORCERROR 
BCS 1801 
MOV RO.Rl 
NEXT.ERRNO 



172* 



jSET READ BYTE COUNT 

ISETUP T20PK2 FOR READ FIFO 

iGET WHITE SUBSYSTEM COMMANO PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

iWAIT FOR SSR TO SET 

iBSDFORCfc ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



172*: ERRDF ERRNO, T206SSR .PKTSSR 



I DEVICE FATAL SSR 



180*: 



lN r 

uhop 



FATFLG 



FAILED T SET 
TRAP 
.WORD 
.WORD 
.WORD 



j SET FATAL ERROR FLAG 
l LOOP ON ERROR, If FLAG 



St T 
TRAP 



CtFRDF 

907 

T 206 SSR 

PKTSSR 



CJCLP1 



F16 



TSV5 - HARDWARE 


TESTS 


MACRO M 


TEST 9; READ/WRITE DATA PARITY 


534 7 






5348 






5349 063156 


005000 




5350 063160 


004737 


066002' 


5351 063164 


012704 


066300' 


5352 063170 


010465 


OOOOOO 


5353 063174 


004737 


016146 1 


5554 063200 






5355 063214 


103407 




5356 063216 


010001 




5357 063220 






5358 063220 






063220 


104455 




063222 


001614 




063224 


065271' 




063226 


011656' 




5359 063230 


005237 


002222' 


5360 063234 






063234 


104406 




5361 






5362 063236 


0127OO 


OOOOOl 


5363 063242 


004737 


066002' 


5364 063246 


012704 


066500' 


5365 063252 


010465 


OOOOOO 


5366 063256 


004737 


016146' 


536/ 063262 






5368 063276 


10340/ 




5369 063300 


010001 




53 70 063302 






5371 063302 






063302 


104455 




063304 


001615 




063306 


065271' 




063310 


011656' 




5372 063312 


005237 


002222' 


5373 063316 






063316 


104406 




5374 






5375 063320 


004737 


065666' 


5376 063324 


012704 


066300' 


5377 063330 


010465 


OOOOOO 


53/8 063334 


004 737 


016146* 


5379 063340 






5380 0*.3354 


103407 




5381 063356 


OiOOOl 




5382 063360 






5383 063360 






063360 


104455 




063362 


001616 




063364 


06505?' 




06 3366 


011656' 




5384 063370 


005237 


002222' 


5385 0633/4 






065374 


104406 




5586 






538/ 063576 


004 73/ 


0660 74' 


5386 063402 


012701 


064622* 



^T 



01-FEB-84 17:02 



5EQ 200 



192$: 



200$: 



212*5 



2321? 



240$: 

J 



Do a WRITE FORMAT to aet IRESV4 
(Read Strobt set* PAR IN 
CLR RO 
JSR PC.T20WFMT 
MOV 0T20PK2.R4 
MOV R4.TSD8CR5) 
JSR PC.CHKTSSR 
FORCERROR 192$ 
BCS 200$ 
MOV RO.Rl 
NEXT, ERRNO 
ERRDF ERRNO , T208SSR ♦ PKTSSR 



■•>IRSTR - (set* read strobe low) 
H [Parity Error]) 
»IRESV4-->IRSTR » 
j SETUP T20PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-l 
iBR IF CARRY SET CGOOO RETURN) 
j SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
908 

T208SSR 
PKTSSR 



iSET FATAL ERROR FLAG 
{LOOP ON ERROR, IK FLAG 



Do a WRITE FORMAT to set IRESV4 

MOV *WF. I4RES.R0 

JSR PC.T20WFMT 

MOV *T20PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 212$ 

BCS 220$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO , T208SSR , PKTSSR 



SET 

TRAP 

strobe 



C$CLP1 
hlg'O 



-->IRSTP - 1 (sets read 

»IRESV4-->IRSTR • 1 

; SETUP T20PK2 FOR WRITE FORMAT 

iGET WRITE SUBSYSTEM COMMANO PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

t&SOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 





INC 


FATFLG 


220$: 


CKLOOP 




i 


Do a '.Jr 


it* Sutoayattm 
PCT20S&D 




JSR 




MOV 


#T20PK2.R4 




MOV 


R4,TSD8(R5) 




JSR 


PC.CHKTSSR 



READ STATUS 



TRAP 


C$ERDF 


.WORD 


909 


.WORD 


T208SSR 


.WORD 


PKTSSR 


j SET FATAL ERROR FLAG 




j LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 



FORCERROR 232$ 

BCS 240$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO , T203SSR .PKTSSR 



INC 
CKLOOP 



FATFLG 



jSETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMANO PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
jUAIT FOR SSR TO SET 

iSODFORCE ERROR IF FORCER-1 
jBR IF CARRY SEV (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 910 
,W0RC T203SSR 
,WORD PKTSSR 



I SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



If Read Data parity error N0T»1 
JSR PC.T20SETEXP 
MOV 0T20EXSTA.R1 



SET 
TRAP 



Then Print Error 
iSFT WORDS 0-7 EXPQ-RECv (NOT 
iGET EXPECTED READ STATUS 



C$CLP1 
TESTING) 



G16 



TSV5 - HARDWARE TESTS MACRO Mill? Ol-FEB-84 17:0? 
TEST 9; READ/WRITE DATA PARITY TE^T 



SEQ 201 



5389 063406 


012702 


066172' 


5390 063412 


011211 




5391 063414 


016261 


000002 000002 


5392 063422 


052711 


100000 


5393 063426 


005000 




5394 063430 


012701 


066152' 


5395 063434 


012702 


064602' 


5396 063440 


012703 


000024 


5397 063444 


004737 


01J310' 


5398 063450 






5399 063460 


103404 




5400 063462 






5401 063462 






063462 


104456 




063464 


001617 




063466 


065337' 




0634 70 


012160' 




5402 063472 






063472 


104406 




5403 






5404 063474 


012700 


00002C 


5405 063500 


004737 


066022' 


5406 063504 


012704 


066300' 


5407 063510 


010465 


000000 


5408 063514 


004737 


016146' 


5409 063520 






5410 063534 


103407 




5411 063536 


010001 




5412 063540 






5413 063540 






063540 


104455 




063542 


001620 




063544 


065006' 




063546 


011656' 




5414 063550 


005237 


002222' 


5415 063554 






063554 


104406 




5416 






5417 






5418 063556 


004 737 


066074' 


5419 063562 


012701 


064622' 


5420 063566 


012702 


066172' 


5421 063572 


011211 




5422 063574 


016261 


000002 000002 


5423 063602 


042711 


100000 


5424 063606 


0O5OOO 




5425 063610 


012701 


066152' 


5426 063614 


012702 


064602* 


542 7 063620 


012703 


000024 


5428 063624 


004737 


011310' 


5429 063630 






54 30 063640 


103404 




5431 067-642 






54 32 06764? 






063642 


104456 




063644 


001621 




063646 


065446' 





252$: 



282*: 



290$: 



302* 



MOV 


0T20BFSTA,R2 




MOV 


CR2).(R1) 




MOV 


2(R2),2(RJ ) 




BIS 


♦Sl.PARERR.(Rl) 


CLR 


RO 




MOV 


M20BFR.R1 




MOV 


0T20EXP.R2 




MOV 


#20. ,R3 




JSR 


PC»CKMSG2 




FORCERROR 252$ 


NOTSSR 


BCS 


260$ 




NEXT.ERRNO 




ERRHRD 


ERRN0.T20SWP 


MSGSTAT 



260$: 


CKLOOP 




J 


Do a 


Wr 


ita Miac to RESET 




MOV 




OMS.RSFIF.RO 




JSR 




PC, T20WMI3C 




MOV 




0T20PK2.R4 




NOV 




R4,TSDB(R5) 




JSR 




pc.chktssh 



jGET RECV READ STATUS 

I SET EXPO WOOD 08 - RECV TEMP 

iSET EXPD WORD 09 - RECV (NOT 

i SET EXP PAR ERR -1 

l HIGH RECV ADDRESS FOR CKMSG2 

lLOW RECV ADDRESS FOR CKMSG2 

lEXPD ADD* .~SS 

j NUMBER OF BYTES TO COMPARE 

jEXPD EQUAL RECV? 

iSSD 

I BR IF YES 

jREPORT ERROR 



I LOOP ON ERROR, IF FLAG 



TESTED) 



FIFO 



TRAP 


C*ERHRD 


.WORD 


911 


.WORD 


T20SWP 


.WORD 


MSGSTAT 


SET 




TRAP 


C*CLP1 



FUHOhRROR 202* 

BCS 290$ 

MOV N0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T202SSP,PKTSSR 



I SET RESET FIFO COMMAND 

»SETUP T20PK2 FOR WRITE MISC 

jGET WRITE SUBSYSTEM COMMAND PACKET 

I SET THE PACKET ADDRESS TO EXECUTE 

iWAIT FOR SSR TO SET 

jOSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
i SAVE CONTENTS OF TSSR 

iDEVICE FATAL S5R FAILED TO SET 

TRAP CIERDF 

.WORD 912 
.WORD T202SSR 
.WORD PKTSSR 



INC 


FATFLG 






iSET FATAL ERROR FLAG 




CKLOOP 








j LOOP ON ERROR, IF FLAG SET 

TRAP 


CiCLPl 


Do a Wr 


it* Subeyetem 


READ 


STATUS 




If Read 


Data parity error 


NOT-0 


Than Print Error 




JSR 


PC.T20SETEXP 






iSET WORDS 0-7 EXPD-RECV (NOT 


TESTING) 


MOV 


#T20€XSTA,R1 






jGET EXPECTED READ STATUS 




MOV 


0T20BFSTA,R2 






jGET RECV READ STATUS 




MOV 


(R2)»(R1) 






j SET EXPD WORD 08 - RECV TEMP 




MOV 


2(R2).2(R1) 






iSET EXPD WORD 09 - RcCV (NOT 


TESTED) 


BIC 


0S1.PARERR.CR1) 




» SET EX,' PAR ERR -0 




CLR 


RO 






iHIGH RECV ADDRESS FOR CKMSG2 




MOV 


0T206FR.R1 






I LOW RECV ADDRESS FOR CKMSG2 




MOV 


0T20EXP.R2 






,EXPO ADDRESS 




MOV 


020. ,R3 






j NUMBER OF BYTES TO COMPARE 




JSR 


PC.CKMSG2 






lEXPD EQUAL RECV? 




FORCERROR 302* 


NOTSSR 


iqWO 




BCS 


320$ 






jBR IF YES 




NEXT.tRRNO 










ERRHRD 


ERRN0.T20RSF 


MSGSTAT 


jREPORT ERROR 












TRAP 


C$eRHRD 










.WORD 


913 










.WORD 


T20RSF 



H16 



TSV5 - HARDWARE TESTS MACRQ M1113 01-FEB-fi. l7;02 
TEST 9: READ/WRITE DATA PARITY TEST 



SEQ 202 



5453 

5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 



5446 
5447 

5448 
5449 
5450 
5451 

5452 
5453 
5454 
5455 
5456 
5457 
5458 
54S9 
5460 
5461 



5462 
5463 

5464 
5465 
5466 
5467 
5468 
5469 
54 70 
54/1 
5472 
54 73 
54 74 
5475 



063650 
063652 
063652 



063654 
063660 
063664 

063670 
063674 
063700 
063714 
063716 
063720 
063720 
06372O 
06372.' 
063724 
063726 
063730 
063734 
063734 



063736 
063742 
063746 
063752 
063756 
063762 
063766 
063772 
064006 
064010 
064012 
064012 
064012 
064014 
064016 
064020 
064022 
064026 
064026 

064030 
064034 
064040 
064044 
064050 
064054 
064060 
064074 
0640/6 
064100 
O64100 
064100 
064102 



012160 
104406 



012/00 
004737 
012704 
010465 
004 737 

103407 
010001 



104455 
001622 
065271 
011656 
005237 

104406 



012700 
052700 
052700 
004737 
012704 
010465 
004737 

103407 
OlOOOi 



104455 

001623 

065117' 

011656' 

00*237 

104406 

012700 
012701 
0O4737 
012/04 
010465 
004 737 

103407 
010001 



104455 
001624 



3c\0$; CKLOOP 



,L00P ON ERROR, 



000001 
066002 
066300 

oooooo 

016146 



002222' 



0O0100 

000040 

000020 

065706' 

066300' 

OOOOOO 

016146' 



002222' 



000001 

002312' 

065746' 

066300' 

OOOOOO 

016146' 



340$; 

I 
I 



(* Verify Data can b« traneferrad without 
Do a WRITE FORMAT to aet IRESV4- - >IRSTR 



MOV 


*Wf 


.I4RES,R0 


Jf* 


PC, 


T20WTMT 


nov 


ST20PK2.R4 


liOV 


R4. 


TSDBCR5) 


.iSR 


PC, 


CHKTSSR 


FORCERROR 


332* 


BCS 


3401 


MOV 


RO, 


Rl 


NEXT 


ERRNO 





.WORD MSGSTAT 
IF FLAG SET 

TRAP CfCLPl 
a Pari ty Error ♦ ) 
1 Caata raad strobe high) 



|IRESV4-->IRSTR - 1 

jSETU^ T20PK2 FOR WRITE FORMAT 

,GET WRITE SUBSYSTEM COMMANO PACKET 

i SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

iBSDFORCE ERROR IF FORCER-1 
»BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



332$; ERRDF ERRNO, T208SSR.PKTSSR 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TC SET 

TRAP 
.WORD 
.WORD 
.WORD 



l SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG SET 

TRAP 
Do a WRITE NPR to »at loopbacW and tapa direction OUT and 
and CLEAR Write Wrong Parity. 



CCERDF 
914 

T2085SR 
PKTSSR 



CfCLPl 



MOV *NP.OUT,RO 

BIS GNP.LOOP.RO 

BIS *NP.WRP.RO 

JSR PC.T20WNPR 

MOV *T20PK2,R4 

MOV R4.TSDBCR5) 

JSR PC, CHKTSSR 

FORCERRUR 352$ 

BCS 360$ 

MOV R0,R1 

NEXT, ERRNO 
352$; ERRDF ERRNU, T204SSR , PKTSSR 



I SET TAPE DIRECTION OUT 

i SET LOOPBACK 

iCLEAR WRITE WRONG PARITY (INVERTED) 

, SETUP T20PK2 FOK WRITE NPR 

iGET WRITE SUBSYSTEM COMMAND PACKET 

; SET THE PACKET A >ORESS TO EXECUTE 

jWAIT FOR SSR TO >ET 

jfiWOFORCE ERROR IF FORCER-1 
;BR IF CARRY SET I C-000 RETURN) 
j SAVE CONTENTS OF I'SSR 



>DfcVICE FATAL SSR FAILED TO SET 

TRAP 





INC 


FATFLG 


360$; 


CKLOOP 


J 


Do a 


WRITE FIFO with byte co 




MOV 


*1,R0 




MOV 


♦0ATA.R1 




JSR 


PC,T20WFIF 




MOV 


♦T20PK2.R4 




MOV 


R4.TS0BCR5) 




JSR 


PC, CHKTSSR 




FORCERROR 372$ 




BCS 


380$ 




MOV 


R0.R1 




NEXT 


ERRNO 


372$; 


ERRDF ERRNU, T205SSR.PKTSSR 



j SET FATAL ERROR r LAG 
jLOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 



C$ERDF 
915 

T204SSR 
PKTSSR 



SET 

TRAP C$CLP1 

equal to 1 and Tape diraction OUT 
;WRITE 1 BYTE 
iFIFO WRITE DATA ADORESS 
, SETUP T20PK2 FOR WRITE FIFO 
iGET WttlTE SUBSYSTEM COMMA,*) PACKET 
l SET THE PACKET ADDRESS TO EXECUTE 
,WAIT FOR SSR TO SET 

,B80F0RCE ERROR IF FORCER-1 
|RR IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 91o 



116 



TSV5 - HARDWARE Tf-MS MACRO MX115 Ol-FEB-84 17:02 
TEST 9 j READ/WRI1L DATA PARITY TEST 



5476 

5477 

5478 
5479 
5480 
5481 
54ft? 
5483 
5484 
5485 
5486 
5487 
5488 



5489 
5490 

5491 
54 92 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 



5503 
5504 

5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 



064104 
064106 
064110 
064114 
064114 

064116 
064122 
064126 
064132 
064136 
064142 
064156 
064160 
064162 
064162 
064162 
064164 
064166 
064 1 70 
064172 
064176 
064176 



064200 
064202 
064206 
064212 
064216 
064222 
064236 
064240 
064242 
064242 
064242 
064244 
064246 
064250 
064252 
064256 
064256 

064260 
064264 
064270 
064274 
064 300 
064 304 
064320 
064322 
064 324 
064 324 
064 324 
064 326 
064 330 
064 332 



065162' 
011656' 
005237 

104406 

012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001625 
065226 
011656 
005237 

104406 



005000 
004 73 7 
012704 
010465 
004737 

10340 7 
010001 



104455 

001626 

065271' 

011656' 

005237 

104406 

012700 
004737 
012704 
010465 

004737 

103407 
010001 



104455 
001627 
065271 
011656 



002222' 



000001 

065726* 

066300' 

000000 

016146' 



002222* 



066002* 
066300' 
OOOOOO 
016146' 



002222 



0OOO01 

066002* 

066300' 

OOOOOO 

016146' 



380$: 



<00*: 



420*} 



432*: 



INC 
CKLOOP 



FATFLG 



j SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



Do a READ FIFO with tape 

MOV *1,R0 

JSR PC.T20RFIF 

MOV 0T20PK2.R4 

MOV R4,TSDB(R5) 

JSR PCCHKTSSR 

FORCERROR 392* 

PCS 400$ 

MOV R0.R1 

NEXT.ERRNO 



.WORD 
.WORD 

SET 
TRAP 
te 



wr 



SEQ 203 



T205SSR 
PKTSSR 



C*CLP1 
latch 



direction OUT to load tape out 

I SET READ BYTE COUNT 

j SETUP T20PK2 FCS READ FIFO 

iGET WRITE SUBSYSTEM COMMANO PACKET 

iSET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

iQSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
jSAVE CONTENTS OF TSSR 



392*: ERRDF ERRNO, T206SSR , PKTSSR 



iDEVICE FATAL SSR 



INC 
CKLOOP 



Do 



FATFLG 



a WRITE FORMAT to sat 
CRaad Strobe sets 
CLR RO 

JSR PC.T20WFMI 

MOV 0T20PK2.R4 

MOV R4,TSDB(R5) 

JSR ^C.CHKTSSR 

FORCERROR 412* 

BCS 420* 

MOV R0,R1 

NEXT.ERRNO 



FAILED TO SET 






TRAP 


C*ERDF 




.WORD 


917 




.WORD 


T206SSR 


i ah 


.WORD 


PKTSSR 


FLAG 


SET 






TRAP 


C*CLP1 


read 


strobe 


low) 



;SET FATAL ERROR F 
iLOOP ON ERROR, IF 

IRESV4-»>IRSTR - (sat* 
PAR IN H (Parity Error]) 

jIRESV4-->IRSTR - 

I SETUP T20PK2 FOR WRITE FORMAT 

iGET WRITE SUBSYSTEM COMMANO PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

jfiWOFORCE ERROR IF FORCER-1 

iBR IF CARRY SET (GOOO RETURN) 

iSAVE CONTENTS OF TSSR 



412*: ERRDF ERRNO, T208SSR, PKTSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C*ERDF 
918 

T208SSR 
PKTSSR 



I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG 



Do a WRITE FORMAT to set IRESV4- 

MOV *WF.I4RES,R0 

JSR PC.T20WFMT 

MOV 0T20PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 432* 

ecs 440* 

MOV R0.H1 

NEXT.ERRNO 

ERRDF ERRN0.T208SSR, PKTSSR 



SET 

TRAP 

strobe 



C*CLP1 

high) 



>IRSTR - 1 (sets read 
jIRESV4-->IRSTR * 1 
j SETUP T20PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMANO PACKET 
{ SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR S5R TO SET 

tOOOFORCE ERROR " FORCER -1 
iBR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



iDEVlCE FATAL SSR 



FAILED TO SET 




TRAP 


CttRDF 


.WORD 


919 


.WORD 


T208SSR 


.WORD 


PKTSSR 



J16 



TSV5 - HARDWARE Tt.STS MACRO Mill? 01-FEB-84 17;02 
TEST 9; READ/WRITE DATA PARITY TEST 



5516 


064*34 


005237 


002222' 


5517 


064340 








064M0 


104406 




5518 








5519 








55K) 


064342 


004 737 


065666' 


5521 


064346 


012704 


066300' 


5522 


064352 


010465 


OOOOOO 


5523 


064356 


004737 


016146' 


5524 


064362 






5525 


064376 


103407 




5526 


064400 


010001 




5527 


064402 






5528 


064402 








064402 


10^455 






064404 


001630 






064406 


065052' 






064410 


011656' 




5529 


064412 


005237 


002222' 


5550 


0644.16 








064416 


104406 




5551 








5532 


064420 


004737 


066074' 


5553 


064424 


012701 


064622 


5554 


064430 


012702 


066172' 


5535 


064434 


011211 




5536 


064436 


016261 


000002 


5537 


0o4444 


042711 


100000 


5538 


064450 


005000 




5539 


064452 


012701 


066152' 


5540 


064456 


012702 


064602' 


5541 


064462 


012703 


000024 


5542 


064466 


004737 


011310' 


5543 


064472 






5544 


064502 


103404 




5545 


064504 






5546 


064 504 








064504 


104456 






064506 


001631 






064510 


065547' 






064512 


012160' 




5547 


064514 








064514 


104406 




5548 








5549 


064516 






5550 


064526 


013703 


002316' 


5551 


064532 


020327 


003062' 


5552 


064536 


103002 




5553 


064540 


000137 


062614' 


5554 


064544 






5555 








5556 


064544 
064544 








064544 


104403 




5557 








5558 


064546 


005737 


002222' 


5559 


064552 


001402 





440$ 



452$: 



460$; 



000002 



555$ i 



INC 
CKLOOP 



FATFLG 



j SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG SET 

TRAP 



SEQ 204 



CICL.P1 



Do a Writ* Subsystem READ STATUS 

JSR PCT20S&D 

MOV *T20fK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 452$ 

BCS 460$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T2O3SSR,PKTSSR 



472$: 



480$: CKLOOP 



INC 


FATFLG 


CKLOOP 




If Read 


Data parity error NO 


JSR 


PC.T20SETEXP 


MOV 


*T20EXSTA,R1 


MOV 


«T20BFSTA,R2 


MOV 


(R2),CR1) 


MOV 


2(R2),2(R1) 


BIC 


*S1.PARERR,(R1) 


CLR 


RO 


MOV 


0T206FR.R1 


MOV 


#T20EXP.R2 


MOV 


#20., R3 


JSR 


PC.CKMSG2 


FORCERROR 4 72$ ,NOTSSR 


BCS 


480$ 


NEXT.ERRNO 


ERRHRO 


ERRNO.T20CWP.MSGSTAT 



r 0RCEXIT 555$ 

.10V TSTPTR.R3 

CMP R3.0TBLEND 

Bh IS 555$ 

JM> 100$ 



EMDSUB 



> SETUP PACKET FOR READ STATUS 
|GtT WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
(WAIT FOR SSR TO SET 

jMOFORCE ERROR IF FOP.CER-1 
,BR IF CARRY SET CGuOO RETURN) 
jSAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



TRAP 


C$ERDF 


.WORD 


920 


.WORD 


T203SSR 


.WORD 


PKTSSR 



»SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP CICLP1 
Then Prirvt Error 
j SET WORDS 0-7 EXPD-RECV (NOT TESTING) 
iGET EXPECTED READ STATUS 
j GET RECV READ STATUS 
j SET EXPO WORD #8 - RECV TEMP 
jSET EXPO WORD 09 - RFCV (NOT TESTED) 
iSF.T EXP PAR ERR -0 
i HIGH RECV ADDRESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG2 
tEXPD ADDRESS 

j NUMBER OF BYTES TO COMPARE 
iFXPD EQUAL RECV? 

l BR IF YES 

{REPORT ERROR 



TRAP 


C$ERHRD 


.WORD 


921 


.WORD 


T20CWP 


WORD 


MSGSTAT 


{LOOP ON ERROR. IF FLAG SET 




TRAP 


C$CLP1 


i S0D 




{RESTORE CURRENT TSTBLK POINTER 




tEND OF TSTBLK? 




iBR IF YES 




{DO ANOTHER TSTBLK PATTERN 





rsr 

Bfc'U 



FA7FLG 
5bO$ 



j//////////// END SUBTEST ////////// 

L 10074} 

TRAP C$ESU6 

j ANY r ATAL ERRORS ? 
{BRANCH IF NOT 



TSV5 - HARDWARE TESTS MACRO M1113 01-FEB-84 17-02 
TEST 9; READ/WRITE DATA PARITY TEST 



K16 



SEQ 205 



5560 


064554 


004737 


017014' 


5561 


064560 






5562 


064560 


004737 


016270' 


5563 


064564 


103002 




5564 


064566 


000137 


050246' 


5565 


064572 






5566 


064572 








064572 


104432 






064574 


001620 




5567 








5568 








5569 








5570 








5571 








5572 








5573 


064576 






5574 








5575 


0645 76 


377 




5576 


06457 7 


037 




5577 


064600 


360 




5578 


064601 


000 




5579 








5560 


064602 






5581 


064602 


000000 




5582 


064604 


000000 




5583 


064606 


000000 




5584 


064610 


000000 




5585 


064612 


oooooo 




5566 


064614 


000000 




5587 


064616 


oooooo 




5538 


064620 


oooooo 




5589 


064622 






5590 


064722 






5591 








5592 








5593 








5594 








5595 


064 722 


122 


145 


5596 


064751 


127 


122 


5597 


065006 


127 


122 


5598 


065052 


127 


122 


5599 


065117 


127 


122 


5600 


065162 


127 


122 


5601 


065226 


127 


122 


5602 


065271 


127 


122 


5603 


065337 


122 


145 


5604 


065446 


122 


145 


5605 


06554 7 


122 


145 


5606 








560 7 








5606 








5609 








5610 








5611 


065642 






5612 


065642 






5613 


065646 


012701 


066152 


5614 


065652 


012702 


000120 



41 
11 
11 
11 
11 
11 
11 
11 
41 
41 



560$ j 



565$; 



i LOCAL 
; - 

T20MSK: 



JSR PC.CKDROP 

JSR PC.TSTLOOP 

BCC 565$ 

JMP T18L00P 

EXIT TST 



STORAGE FOR THIS TEST 



.BYTE 
.BYTE 
.BYTE 
,BYTE 



tC<000> 
tC<340> 
tC<0l7> 




T20EXP; 

, WORD 

.WORD 

. WORD 

.WORD 

. WORD 

.WORD 

, WORD 

, WORD 

T20EXSTA: .BLKB 64. 
T20EXEND: 

LOCAL TEXT MESSAGES FOR TEST 



j TRY 10 DROP THE UNIT 

iDO ITERATIONS? 

jBR IF NO 

{LOOP UNTIL ITERATIONS DONE 

{////////// EXIT TEST ////////// 

TRAP C$EXIT 
.WORD L10073 



iMASK OF UNTESTED BITS IN READ STATUS 

{UNTESTED BITS ARE SET TO 1 

{BYTE MASK 

{BYTE 1 MASK CPARERR, IRESV2. IRESV1) 

{BYTE 2 (TIMER A,TIMER B ,UNDEFINED< 1 :0> ) 

;MAKE IT EVEN 

{BEGIN EXPECTED DATA BUFFER 
{MESSAGE TYPE 
{DATA FIELD LENGTH 
jRBPCR 
{XSTO 
{XST1 
{XST2 
{XST3 

jXST4 (ALWAYS PRESENT FOR WRITE SUB.) 
{EXPECTED READ STATUS ANO WRITE FIFO DATA 
{END EXPECTED DATA BUFFER 



TST20ID: 

T20SSR; 

T202SSR 

T203SSR 

T204SSR 

T205SSR 

T206SSR 

T208SSR 

T20SWP 

T20RSF 



41 T20CWP 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



'Read/Write Data Parity' 
CHARACTERISTICS Failed' 
SUBSYSTEM (Write Misc) Failed 1 
(Read Status) Failed' 
(Write Npr) Fai led* 
(Write FIFO) Failed' 
(Read FIFO) Failed' 
(Write Format) Fai led 1 
Read Data Parity Error (PARERR) Failed to 
Read Dat^ Parity Error (PARERR) Failed to 
Read Dal.a Parity Error (PARERR) occurred 



ASCIZ 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 



SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 



Set after Write Wrong Parity' 
Clear after RESET FiFO* 
r» Data Loopback' 



CLEAR MESSAGE BUFFER 



T2QCLRBUF : 

SAVREG 

MOV 
MOV 



OT20BFRR1 
<>T20BEND-T20BFR,R2 



i 

{SAVE Rl R5 UNTIL NE"T IcTURN 
;GFT MESSAGE BUFFEP DDHESS 
{SIZE OF MESSAGE BUFFER IN UKTtS 



L16 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST 9: READ/WRITE DATA PARITY TEST 



10$: 



5615 


065656 


105021 




5616 


065660 


005302 




5617 


065662 


003375 




5618 


065664 


000207 




5619 








5620 








5621 








5622 








5623 


065666 






5624 


065666 


004737 


065642' 


5625 


065672 


012700 


066310' 


5626 


065676 


112720 


000005 


5627 


065702 


105010 




5628 


065704 


000207 




5629 








5630 








5631 








5632 








5633 








5634 








5635 








5636 








5637 








5638 


065706 






5639 


065706 


004737 


065642' 


5640 


065712 


012701 


C66310 1 


5641 


065716 


112721 


000011 


5642 


065722 


1100U 




564 3 


065724 


000207 




5644 








5645 








5646 








564 7 








5648 








5649 








5650 








5651 


065726 






5652 


065726 


004737 


065642' 


5653 


065732 


012701 


066310' 


5654 


065 736 


112721 


000003 


5655 


065742 


110021 




5656 


065744 


000207 




5657 








5658 








5659 








5660 








5661 








5662 








5663 








56b4 


065 746 






5665 


065 746 






5666 


065752 


004737 


065642' 


566 7 


065756 


3 2702 


066310* 


5668 


065 762 


112722 


000004 


5669 


065766 


110022 




56 70 


0657/0 


005022 




5671 


065772 


112122 





CLRB 


CRD* 


DEC 


R2 


BGT 


10$ 


RTS 


PC 



SETJP T20PK2 PACKET FOR READ STATUS 
T20SRD: 



JSR 


PCT20CLHBUF 


MOV 


OT20DT2.R0 


MOVB 


OPW.RDSTATUS.(RO)* 


CLRJ 


(RO) 


RTS 


PC 



SETUP T20PK2 PACKET FOR WRITE NPR 

INPUT : 

RO CONTAINS BSEL1 NPR DATA 



T20WNPR: 




JSR 


PC.T20CLRBUF 


MOV 


*T20DT2,R1 


MOVB 


OPW.WNPR.CRl)* 


MOVB 


R0.CR1) 


RTS 


PC 



J * 



SETLP T20PK2 PACKET FOR READ FIFO 

INPUT; 

RO CONTAINS SEL2 BYTE. COUNT 



T20RF1F: 




JSR 


PC,f20CLRBUF 


MOV 


0T20DT2.R1 


MOVB 


OPW.RFIF0.CR1)* 


MOVB 


R0,(R1)» 


RTS 


PC 



j SETUP T20PK2 PACKET FOR WRITE FIFO 



INPUT: 



SEQ ?06 



j CLEAR A BYTE 
j DONE? 
{BR IF NO 
j RETURN 



I CLEAR MESSAGE BiJFFER 

{WRITE SUBSYSTEM DATA BUFFER 

{STORE READ STATUS COMMAND IN BSELO 

jCLEAR BSEL1 

{RETURN 



{CLEAR MESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
{STORE WRITE NPR IN BSELO 
{STORE NPR DATA IN BSEL1 
{RETURN 



{CLEAR MESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
{STORE READ FIFO IN BSELO 
i STORE BYTE COUNT IN BSEL1 
{RETURN 



RO CONTAINS BYTE COUNT 

Rl CONTAINS DATA PATTERN BLOCK ADDRESS 



T20WFIF? 




SAVREG 




JSR 


PC.T20CLRBUF 


MOV 


0T20DT2.R2 


MOVB 


0PW.WFIFO,(R2)» 


MOVB 


R0,(R2)* 


CLR 


(R2)» 


104 ; MOVB 


CR1)*.(R2)* 



{SAVE R1-R5 UNTIL NEXT RETURN 

{CLEAR MESSAGE BUFFER 

{WRITE SUBSYSTEM DATA BUFFER 

{STORE WRITE FIFO IN BSELO 

{STORE BYTE COUNT IN BSFL1 

{CLEAR SEL2 (UNUSED) 

{STORE DATA PATTERN B> Tt 



M16 



TSVS - HARDWARE TESTS MACRO Ml 113 Ol-FEB-84 17;02 
TEST 9 { READ/WRITE DATA PARITY TEST 



SEQ 207 



5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5 705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

571? 

5714 

5715 

5716 

5717 

5718 

5 719 

5720 

5721 

5/22 

5 723 

5724 

5 725 

5726 

5 ?e ? 

5728 



065774 
065776 
066000 



066002 
066002 
066006 
066012 
066016 
066020 



066022 
066022 
066026 
066032 
066034 



066036 
066036 
066042 
066046 
066052 



066054 
066054 
066060 
066064 
066066 
066070 



066074 
066074 
066100 
066104 
066110 
066112 
066114 
066116 



005300 
003375 
000207 



004737 
012701 
112721 
110021 
000207 



012701 
112721 
110011 
000207 



H12700 
112 720 
112710 
000207 



012701 
012700 
105021 
005300 
003375 
000207 



012702 
012703 
012700 
012322 
005300 
003375 
000207 



065642 
066310 
000007 



066310' 
000010 



066310* 

000010 

000200 



064602' 
000120 



064602' 
066152' 
000010 



DFX 
BGT 
RTS 



RO 

10$ 
PC 



{DONE ALL BYTES? 
{BR IF NO 
j RETURN 



SETUP T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER 
i INPUT: 



RO CONTAINS DRIVING DATA PATTERN 



T20WFMT; 




JSR 


PC.T20CLRBUF 


MOV 


4T20DT2.R1 


MOVB 


0PW.WFMT.CR1)* 


MOVB 


R0.CR1)* 


RTS 


PC 



jCLEAR MESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
{STORE WRITE FORMAT IN BSELO 
{STORE DATA WORD IN BSEL1 
{RETURN 



SETUP T20PK2 PACKET FOR WRITE MISC. 
RO CONTAINS WRITE MISC DATA 



T20WMISC: 

MOV 
MOVB 
MOVB 
RTS 
+ 

SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 



*T20DT2,R1 

*PU.UMISC.(R1)» 

R0.CR1) 

PC 



{WRITE SUBSYSTEM DATA BUFFER 

{STORE WRITE MISCELLANEOUS IN BSELO 

{STORE INVERT EXTENDED FEATURES IN BSEL1 

{RETURN 



T20SEXT: 

MOV 0T20DT2.R0 

MOVB $PW,WMISC,(RO)* 

MOVB OMS.EXT.CRO) 

RTS PC 

CLEAR EXPECTED DATA MESSAGE BUFFER 



T20CLEXP: 

MOV 
MOV 

10$; CLRB 
DEC 
BGT 
RTS 



*T20EXP 4 R1 

*T20EXEND~T20EXP,R0 

(Rl/* 

RO 

10$ 

PC 



{WRITE SUBSYSTEM DATA BUFFER 

{STORE WRITE MISCELLANEOUS IN BSELO 

{STORE INVERT EXTENDED FEATURES IN BS^L 1 

{RETURN 



{GET c :XPQ ADDRESS 
{GET , XPD SIZE 
iCLEAK A BYTE 
jDONF' 
;BP xF NO 
{RETURN 



Set WORDS 0-7 of e*pd message BUFFER * to recv since not testing 



T20SETEXP: 
MOV 

MOV 

mov 

5*; liOV 

DEC 
BGT 
RTS 



0T20EXP.R2 

OT20BFR.R3 

08. .RO 

(R3)+,(R2)* 

RO 

5$ 

PC 



{GET EXPO 

{GET READ STATUS RECV BUFFER 

{SET WORDS 0-7 EXP-RECV 

{SET EXPD-RECV 

{DONE WORDS 0-7 WORDS? 

{BR IF NO 

{RETURN 



PROGRAM HEADER 
DISPATCH TABLE 
SOFTWARE P-TABLE 
GLOBAL EQUATES SECTI 
MEMORY MANAGEMENT DE 
MEMORY MANAGEMENT ^E 
TSUv5 REGISTER AND P 
TSU05 REGISTER AND P 



TSU05 REGISTER ANO P. 
TSU05 REGISTER AND P. 
TSU05 REGISTER AND P. 
TSU05 REGISTER AND P. 
SPECIAL MACROS AND 0. 
GLOBAL DATA SECTION . 
TSTBLK - TEST DATA . 
GLOBAL ENVIRONMENT S. 
GLOBAL TEXT MESSAGES. 
GLOBAL ERROR REPORT . 
PRITSSR - PRINi , SSR. 
PRITSSR - PRINT TSSR. 
PRIPKT - PRINT THE , 



PRIBXuR 

PRIXOR 

PRIADD 

PRITADD 

SPACE 

WRTCHR 

URTCHR 

REWIND 

CKRAM2 

CKRAM2 

CKMSG 

CKMSG2 

CKMSG2 



PRTNT EXPO. . 

• Htiiji t-xnn. . 

- PRINI Mt Mil. . 
• PRINT MEMO. . 

- SPACE RECO. . 

- WRITE CHAR. . 

- WRITE CHAR. . 

- POSITION T. . 

- COMPARE RA. . 

- COMPARE RA. . 

- COMPARE WR. . 

- COMPARE EX. . 

- COMPARE EX, . 



Bl 
CI 
Dl 
El 
Fl 
Gl 
HI 
Tl 
Jl 
Kl 
LI 
Ml 
Nl 



B2 
C2 
D2 
E2 
F2 
G2 
H2 
12 
J2 
!<2 
L2 
M2 
,N2 



B3 
C3 
D3 
E3 
F3 
G3 
H3 
13 
J3 
K3 
,L3 
M3 
N3 



B4 

C4 

P4 

[A 

F4 

.64 

H4 

,14 

, J4 

J<4 

.L4 

.M4 

,N4 



PKTMES 


- PRINT TSSR. . 


. .85 


FIFEXP 


- PRINT FIFO. . 


. .C5 


MSGSTAT 


- PRINT STAT. . 


, .05 


MSGSUB - 


PRINT WRITE. . 


. .E5 


PRAMPKT 


- PRINT RAM . . 


. ,F5 


PRMESS 


- PRINT CONT. . 


. .G5 


PRMSGEXP 


- PRINT EXP. . 


. .H5 


PRMSGEXP 


- PRINT EXP. . 


. .15 


PRBYTEXP 


- PRINT ERR. . 


. .J5 


EXPBREC 


- PRINT EXPO. . 


. .K5 


RAMTADD 


- PRINT TEST, . 


. .L5 


BADSSR - 


PRINT TSSR . . 


. .M5 


SOFINIT 


- SOFT INITI. . 


. ,N5 


CHKAMB 


- CHECK TSSR, . 


. .B6 


INTR 


- INTERRUPT . , 


..C6 


CHKTSSR 


- CHECK TSSR. . 


. .06 


XNXM 


- CHECK FOR . . 


. .E6 


TSTSETUP 


- PRINT TES, . 


, .F6 


TSTEND 


- PRINT ERRO.. 


,.G6 


CKDROP 


- CHECK IF U. . 


. .H6 


SETMAP 


- SETUP PAR6., 


..16 


FILLMEM 


- FILL MEMOR. , 


. .J6 


CMPMEM 


- COMPARE ME. , 


. J<6 


REGSAV 


- SAVE R1-R5. 


. ,L6 


GETPAT 


- GET 6 BIT . 


. .M6 


GETSEL 


- ISSUE MENU. 


. .N6 


CHKMAN 


- CHECK MANU. 


. ,B7 


KTINIT 


- SETUP Kill. 


. .C7 


KTINIT 


- SETUP KT11. 


. .07 


KTINIT 


- SETl* KT11. 


. .E7 


KTINIT 


- SETUP KT11. 


. .F7 


INITIALI 


ZE SECTION . 


..G7 


INITIALIZE SECTION . 


, .H7 


INITIALIZE SECTION . 


. .17 


ADD AND 


DROP UNITS S. 


. .J7 


CLEAN-IT 


* AND REPORT . 


. .K7 


CLEAN-UF 


> ANO REPORT . 


. ,L7 


CLEAN-UF 


AND REPORT . 


. ,M7 


TEST 1: 


INITIALIZE . 


. .N7 


TEST 1: 


INITIALIZE . 


. ,B8 


TEST 1: 


INITIALIZE . 


. .C8 


TEST 2: 


BASIC WRITE . 


. .08 


II SI ?• 


HASTC WRITE . 


. . .E8 


TEST 2: 


BASEL URITE . 


. ..F8 


TEST 2; 


BASIC WRITE . 


. . .G8 


TEST 2: 


tJASIC WRITE . 


. . .H8 


TEST 3- 


SUBTEST I- G. 


. . .19 


TEST 3: 


SUBTEST Is G. 


. . .J8 


TEST 3: 


SUBTEST 1: G. 


. . J<8 


TEST 3: 


SUBTEST 2: M. 


. . .L8 


TEST 3: 


SUBTEST 3: C. 


. . .M8 


TEST 3: 


SUBTEST 3: C. 


. ,.N8 



TEST 3 




SUBTEST 4 


: 


N. 


. . ,89 


TEST 3 




SUBTEST 4 


i N. 


. . ,C9 


TEST 3 




SUBTEST 4 


j N. 


. . .09 


TEST 3 




SUBTEST 4 


: N. 


. . ,E9 


TEST 3 




SUBTEST 4 


: N. 


. . ,F9 


TEST 3 




SUBTEST A 


: N. 


. . .G9 


TEST 3 




SUBTEST 4 


: N. 


. . .H9 


TEST 3 




SUBTEST A 


: N. 


. . .19 


TEST 4; 


RAM EXERCIS, 


. , ,J9 


TEST 4: 


RAM EXERCIS. 


. . .K9 


TEST 4: 


RAM EXERCIS. 


. . .L9 


TEST 4; 


RAM EXERCIS. 


. . ,M9 


TEST 4: 


RAM EXERCIS. 


. ..N9 


TEST 4} 


RAM EXERCIS. 


...BIO 


TEST 4: 


RAM EXERCIS. 


. . .CIO 


TEST 4; 


RAM EXERCIS, 


. . .010 


TEST 5: 


SUBTEST 


1: 




. . ,E10 


TEST 5: 


SUBTEST 


1: 




. . .F10 


TEST 5t 


SUBTEST 


1: 




. . .G10 


TEST J 




SUBTEST 


lj 




. . .H10 


TEST 5: 


SUBTEST 


1: 




, . ,110 


TEST 5: 


SUBTEST 


2« 




. . .J10 


TEST 5: 


SUBTEST 


2: 




. . .KIO 


TEST 5; 


SUBTEST 


2: 




. . .L10 


TEST ! 


5 ♦ 


SUBTEST 


2. 




. . .M10 


TEST ! 


i! 


SUBTEST 


2; 




...N10 


TEST ! 


;. 


SUBTEST 


2: . 


. . .Bll 


TEST ! 


3 : 


SUBTEST 


2: . 


...Cll 


TEST ( 


S: 


FIFO EXERCI. 


, . .011 


TEST ( 


5: 


SUBTEST 


1 




. ..Ell 


TEST ( 


S: 


SUBTEST 


1 




.. .Fll 


TEST ( 


S: 


SUBTEST 


2 




, . .Gil 


TEST < 


3: 


SUBTEST 


2 




. . .Hll 


TEST ( 


&: 


SUBTEST 


2 




. , .111 


TEST « 


i>: 


SUBTEST 


2 




...Jll 


TEST 1 


E>: 


SUBTEST 






. ..Kll 


TEST 1 


5: 


SUBTEST 


3 




. .,L11 


TEST 1 


5: 


SUBTEST 


3 




. . .Mil 


TEST 1 


b: 


SUBTEST 


3 




. . ,N11 


TEST 1 


&: 


SUBTEST 


3: . 


. ..B12 


TEST 


6: 


SUBTEST 


3 




. . .C12 


TEST 


b: 


SUBTEST 


3 




. . .012 


TEST 


6: 


SUBTEST 


4 




. . ,E12 


TEST 


6: 


SUBTEST 


4 




. . .F12 


TEST 


b: 


SUBTEST 


5 




. . .G12 


TEST 


6: 


SUBTEST 


5 




. . .H12 


TEST 


6: 


SUBTEST 


5 




. . .112 


TEST 


6: 


SUBTEST 


5 




112 


TEST 


6: 


SUBTEST 


5 




. . .K12 


TEST 


b: 


SUBTEST 


5 




. . .L12 


TEST 


6: 


SUBTEST 


6 




. . .M12 


TEST 


b : 


SUBTEST 


6 




. . .N12 



TEST 


6: 


SUBTEST 


6 




. ,B13 


TEST 


6: 


SUBTEST 


6 




. .C13 


TEST 


6: 


SUBTEST 


6 




. .D13 


TEST 


6: 


SUBTEST 


6 




. ,E13 


TEST 


6; 


SUBTEST 


6 




. .F13 


TEST 


6: 


SUBTEST 


6 




. .G15 


TEST 


7: 


STATIC TRAN. 


. .H13 


TEST 


7: 


STATIC TRAN. 


. .113 


TEST 




STATIC TRAN. 


. .J13 


TEST 


7: 


STATIC TRAN. 


. .K13 


TEST 


7: 


STATIC TRAN. 


. .L13 


TEST 


8: 


SUBTEST 


1: . 


..M13 


TEST 


8: 


SUBTEST 


1: . 


. . .N13 


TEST 


8: 


SUBTEST 


1: B14 


TEST 


8: 


SUBTEST 


1 




. .C14 


TEST 


8: 


SUBTEST 


1 




. .D14 


TEST 


8: 


SUBTEST 


1 




. .E14 


TEST 


8: 


SUBTEST 


1 




. .F14 


TEST 


8: 


SUBTEST 


1 




.. .G14 


TEST 


8: 


SUBTEST 


2 




. .H14 


TEST 


8: 


SUBTEST 


2 




. .114 


TEST 


8: 


SUBTEST 


2 




. ,.J14 


TEST 


8: 


SUBTEST 


2 




. . .K14 


TEST 


8: 


SUBTEST 


2 




. . .L14 


TEST 


8: 


SUBTEST 


3 




. . .M14 


TEST 


3 1 


SUBTEST 


3 




. . .N14 


TEST 


8: 


SUBTEST 


3: B15 


TEST 


8: 


SUBTEST 


3 




...CIS 


TEST 


8: 


SUBTEST 


3 




. . .015 


TEST 


8: 


SieiEST 


4 L. 


. . .E15 


TEST 


8: 


SUBTEST 


4 L, 


. . .F15 


TEST 


8; 


SUBTEST 


4 L. 


. . .G15 


TEST 


8: 


SUBTEST 


4 L. 


. . ,H15 


TEST 


8: 


SUBTEST 


4 L. 


. .115 


TEST 


8: 


SUBTEST 


4 L. 


. . . J15 


TEST 


8: 


SUBTEST 


4 L. 


. . .K1S 


TEST 


8: 


SUBTEST 


4 L. 


. . .LIS 


TEST 


8: 


SUBTEST 


4 L. 


.. .M15 


TEST 


8: 


SUBTEST 


4 L. 


. . .N15 


TEST 


8: 


SUBTEST 


4 1 816 


TEST 


9: 


RFAD'UHirF , 


. , .C16 


TEST 


9: 


K!. AD/WRITE . 


. . .016 


TEST 


9: 


NLAD/WR1IE . 


. . .Elb 


TEST 


9: 


READ/WRITE 


. , .F16 


TEST 


9; 


READ/WRITE . 


. . .G16 


TEST 


9: 


RE AD/ WRITE . 


. . .H16 


TEST 


9: 


READ/WR 


:tf 


116 


TEST 


9: 


READ/WRITE . 


. . . J16 


TEST 


9: 


READ/WRITE . 


. . .K16 


TEST 


9: 


READ/WRITE 


. , ,1 lb 


TEST 


9: 


READ/WRITE . 


. . ,Mlb 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-G* I7j02 
TEST 9j READ/WRITE DATA PARITY TEST 



Bl 



SEQ 208 



5729 

5730 
5732 
5734 
5735 
5736 
57*7 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5768 
5770 
5771 
5772 
5773 
5774 
5/75 
5776 
5777 
5778 
5779 
5780 
5781 
5782 
5783 



5784 
5785 
5786 
5787 



066120 



066130 
066130 
066132 
066134 
066136 

066140 
066140 
066142 
066144 
066146 
066150 



066152 
066152 
066154 
066156 
06616C 
066162 
066164 
066166 
066170 
066172 
066272 



066272 
066300 
066300 
066302 
066304 
066306 

066310 
066310 
066311 
066312 

066314 



066414 
066414 

0664X4 



100004 
066140 
OOOOOO 
000012 



066152' 

OOOOOO 

000024 

OOOOOO 

000007 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



100006 
066310 
OOOOOO 
000012 



ooo 

000 

OOOOOO 



i044Q4 



.BLKB 10-<.-TSV2£7> 

I WRITE CHARACTERISTICS COMMANO PACKET 

i 



T20PACKET: 

.WORD 
.WORD 
.WORD 

.WORD 



T20DATA} 



.WORD 
.WORD 
.WORD 
.WORD 

.WORD 



100004 

T200ATA 



10, 



T20BFR 


20, 


7 



t COMMANO PACKET FOR TEST 

» WRITE CHARACTERISTICS COMMANO. WITH ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

iMINIMUM MESSAGE PACKET SIZE 

j CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

|ESS,ENB.EAI,ERI 

l EXTENDED FEATURES UNIT NO, 



iMESSAGE BUFFER FOR ALL TEST 17 COMMANDS 



T20BFR: 

.WORD 

.WORD 

.WORO 

.WORD 

.WORD 

.WORD C 

.WORL. 

.WORD 

T,?OBFSTAt .BLKB 64, 

T206END: 



iBEGIN MESSAGE BUFFER 

iMESSAGE TYPE 

iDATA FIELD LENGTH 

iRBPCR 

iXSTO 

iXSTl 

»XST2 

IXST3 

»XST4 

l READ 

lENO 



(ALWAYS PRESENT FOR WRITE SUBSYSTEM 
STATUS AND WRITE FIFO BUFFER 
OF MESSAGE SUFFER 



iWRITE SUBSYSTEM READ STATUS COMMkiVj PMLKET 



I 



T20PK2: 



T20DT2: 



.BLKB 10-c. -TSV2£7> 

.WORD P.WRTSUB.'P.ACK 

.WORD T200T2 

.WORD 

.WORD 10. 



.BYTE 

.BYTE 

.WORD 

.BLKB 64. 



iWRITE SUBSYSTEM WITH ACK 
lLOW ADORESS OF DATA BLOCK 
iHIGH ADORESS OF DATA BLOCK 
I MINIMUM MESSAGE PACKET SIZE 

I DATA BLOCK 
iBSELO 
iBSELl 
iSEL? 

iWRITE FIFO DATA OUTPUT BUFFER 



ENOTST 

L10073? 

TRAP C*ETST 

.SBTTL TEST 10; MANUAL INTERVENTION 
I THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE CNQT REALLt A "TEST") 



TSV5 - HARDWARE 
TEST 10; MANUAL 

5788 
5789 
5790 
5791 
5792 
5793 
5794 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
5802 
5803 
5804 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5812 
5813 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
5831 
5332 
5833 
5834 
bC 35 
5836 

583 7 
5638 
5839 
5840 
5841 
5842 

584 3 

5844 



IN^VEN 



WSR° 



CI 



M1U3 01-FEB-84 17*02 



SEG) 209 



THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS Of* 

THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 

THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 

SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

THE ONLY WAYS TO EXIT THIS ROUTINE ANO RETURN TO THE DIAGNOSTIC SUPERVISOR 

ARE BY TYP.T.NG <CTRL-C> OR SELECTING CODE 7. 

SELECTION CODES ANO SUBROUTINES ARE* 

CODE ROUTINE 

HELP, PRINTS THIS MENU. 

1 TURN ON ALL M7455 uED INDICATORS 

2 TURN OFF ALL M7455 LED INOICATORS 

3 OFFLINE/ONLINE ATTENTION TEST 

4 WRITE -PROTECT TEST 

5 INITIATE TRANSPORT SERVO EXERCISER 

6 PRINT EXTENOED TRANSPORT STATUS 

7 EXIT (RETURN TO SUPERVISOR) 

EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 



PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 

CAUSES ALL THREE LED INDICATORS ON THE M7455 MUXJLE 
TO BE ILLLHINATEO. AFTER INITIATING THIS ROUTINE. THE OPERATOR 
SHOU-D OBSERVE THE LEO'S AND VERIFY THAT THEY ARE INDEED ALL LIT. 
THIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
SET THE FORCE VtfONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE 
•PROCESSOR NOT OK" LEO. THEN IT ENTERS A LOOP THAT CONTINUALLY 
WRITES THE LOW BYTE OF ', SDB ANO READS THE TSSR. THESE LATTER TWO 
OPERATIONS WILL CAUSE THE "NOT SSR" ANO "DRIVING BUS" LED'S TO 
GLOW -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR 
REASONABLY VISIBLE. 

INITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO 
EXTINGUISH, 



THli ROUTINE INITIALIZES THE CONTROLLER, ISSUES A 
WRI'E CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS, 
ISSUES A MESSAGE BUFFER RELEASE COMMANO. PRINTS A MESSAGE ON THE 
CONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE 
SWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. 
EACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF-LINE OR 
VICE-VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED, THE PROGRAM 
WILL REPORT THE INTERRUPT »\ND THE CURRENT STATE OF THE TRANSPORT, 
TflE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE 
STATE INOICATEO BY THE LEO ON THE FRONT PANEL OF TH£ TRANSPORT, 
IN ADDITION* WHEN THE TRANSPORT IS PLACED OFF. LINE* THE PROGRAM 



TSV! 



HARDWARE 



TEST 10 j MANUAL 



Mh^W MUl3 °^«B-e4 17 5 02 



Dl 



SEQ 210 



5845 
5846 
584 7 
5848 
5849 
5850 
5851 
5852 
5853 
5854 
5855 
5856 
5857 
5856 
5859 
5860 
5361 
5862 
5863 
5864 
5865 
5866 
V867 
5868 
5869 
5870 
5871 
5872 

5877 

5878 
5879 
5880 
5881 
5882 
5883 
5884 
5865 
5886 
5887 
5891 
5892 
5893 
5894 
5895 
5T*> 
:>897 
5890 



0664 16 
066416 
066416 
066416 
066420 
066422 
0^6426 
066430 
0664X0 
066454 
066440 
066444 
066446 
066452 
066452 
066456 
066464 
066470 
<V*.v/2 
rv>M74 
X.6500 
066502 
066502 
0665)6 
06'.-»10 
Co6514 
066516 
066522 
066524 
066530 



104421 
001403 
012700 
000402 

012700 
004737 
004737 
103402 
000137 

005037 
012737 
004737 
103427 
CJ0001 
032701 
vkU023 

012727 

oooooo 

0137.:/ 
OOOOOO 
005.V 7 
001 Y/5 
00! i67 
001367 



JSSUES A SF.OUENl-E OF TAPE-MOTION COMMANOS (READ, WRITE, POSITION, ETC 
J£9.„ V !5 IF I ES THAT ' F0R EACH COMMAND, FUNCTION REJECT TERMINATION 
RESULTS, ALONG WITH THE NON-EXECUTABLE FUNCTION CNEF) ERROR BIT BEING 
SET. 

THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
TAPE REEL THAT DOES NOT HAVE A WRITE -ENABLE RING INSTALLED, THEN 
WAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
UPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
A WRITE-PROTECTED STATUS. THEN ATTEMPTS TO WRITE DATA ON THE 
TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
WRITE -PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 
AN ERROR IS REPORTED. 



INSTRUCTS THE OPERATOR TO PLACE THE TAPE TRANSPORTS) 
ON-LINE (IF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENOED 
STATUS RCADOUT. FOR F.ACH TRANSPORT EQUIPPED WITH THIS FEATURE, 
THE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE 
TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING 
S'JCH IS ISSUED. 



BGNTST 
RFLAGS RO 







BEQ 


21$ 


072000' 




MOV 


0T38NE,R0 






BR 


3$ 




21$: 






073115' 




MOV 


♦T38ID.R0 


016322' 


3$: 


JSR 


PC.TSTSETUP 


020320' 




JSR 


PC,CHKMAN 






BCS 


22% 


071200* 


22% x 


JMP 


64$ 


002222' 


2%x 


CLR 


FATFLG 


176750 


071212' 


MOV 


•65000. , T38DLY 


015604' 


5$: 


JSR 


PC.SOFINIT 






BCS 


23$ 






MOV 


R0.R1 


000200 




PIT 


*SSR,R1 






BNE 


23$ 






DELAY 


250 



000250 
002116 
177772 
17775b 



iGET OPERATOR 



T10; 
FLAGS 



tBR, IF OK TO RUN 
j "TEST NOT EXECUTED" 
iJLHP IF NOT FIRST TEST 



TRAP 



C$RFLA 



j TEST ID MESSAGE 

I DO THE COMMON SETUP 

iIS MANUAL INTERVENTION ALLOWED? 

i BR, IF MANUAL INTER ALLOWED 

l JUMP IF NOT ALLOWED 

iCLEAR THE FATAL ERROR FLAG 

I SET UP DELAY COUNTER 

iDO A SOFT INIT 

I BRANCH IF 0* 

iCONTENTS OF TSSR REGISTER 

I CHECK FOR TSSR SET 

iKEEP GOING IF NOT SET 

I CALL DELAY ROUTINE 



MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



v250,(PC)> 



LJDLI ,(PC) 



-6(PC) 

, 4 

V2(PC> 

. -20 



TSV5 - HARDWARE 


TESTS 


MACRO Ml 113 


TEST 10 


MANUAL 


INTERVENTION 


5899 


066532 


005337 


071212' 


5900 


066556 


001352 




5901 


066540 








066^40 


104455 






066542 


001751 






066544 


005646' 






066546 


011644' 




5902 


066550 


012700 


073142' 


5905 


066554 


012701 


000006 


5904 


066560 


004737 


020076' 


5905 


066564 


0100O4 




5906 


066566 


006304 




5907 


066570 


000174 


066574' 


5908 


066574 


066452' 




5909 


066576 


066612' 




5910 


066600 


067074' 




5911 


066602 


067326' 




5912 


066604 


067762' 




5915 


066606 


070716' 




5914 


066610 


071174' 




5915 


066612 








066612 


012746 


073011' 




066616 


012746 


000001 




066622 


011*600 






066624 


104417 






056626 


062706 


000004 


5916 


066652 


004737 


073546' 


5917 


066636 


004737 


015604' 


5918 


066642 


103405 




5922 


066644 


OJC001 




5923 


066646 








066646 


104455 






066650 


001752 






066652 


003646' 






066654 


011644' 




5924 


066656 


013737 


002202' 071740 


5925 








5926 


0666*4 


012704 


071720' 


5927 


066670 


004737 


0104 72' 


5928 


066674 


103405 




5932 


066676 


010001 




5933 


066700 








066700 


104456 






066702 


001753 






066704 


005052 ' 






066706 


011644' 




5954 


066710 






5955 


066710 


112737 


000000 071251 


5956 


066716 


112737 


000011 071230 


5937 
5958 
5959 


066724 


012704 


071220' 








5940 








5941 


066 750 


010465 


000000 


5942 


066754 


004737 


016146' 


594 3 


066 740 


105405 




5944 


066/42 


010001 





Ol-FEB-84 17;02 



DEC 
BNE 
ERRDF 



El 



23$; 



6$: 



10*; 



100$; MOV 



MOV 
JSR 
BCS 
MOV 
ERRMRD 



110$ j 



MOVB 

MOVB 
MOV 



T58DLY 

5$ 

ERRNO,SFIERR f SFIMSG 



MOV 


OMIMENU.RO 


MOV 


*6,R1 


JSR 


PCGETSEL 


MOV 


R0.R4 


ASL 


R4 


JMP 


86$(R4) 


.WORD 


2$ 


.WORD 


10$ 


.WORD 


15$ 


.WORD 


20$ 


.WORD 


25; 


.WORD 


35$ 


.WORO 


65$ 


PRINTF 


0T38MS2 



JSR 


PC.T38PEST 


JSR 


PC.SOFINIT 


BCS 


100$ 


MOV 


R0.R1 


ERRDF 


ERRNO , SF IFRB , .SFIMSG 



UNITN.T58CSW 

*T58PK2^4 

PC.WRTCUR 

110$ 

R0.R1 

ERRNO.WRTMSG.SFIMSG 



♦0.T38BS1 

•U.T36BS0 

0T38PACKET.R4 



SEQ 211 



I BUMP COUNTER DOWN 

I BR. IF MORE TIME LEFT 

I REPORT FATAL ERROR 

TRAP C$ERDF 
.WORD 1001 
.WORD SFIERR 
.WORD SFIMSG 
MENU Of" MANUAL INTERVENTIONS 
MAXIMUM ALLOWED SELECTION 
GO GET THE OPERATORS SELECTION 
GET NUMBER FROM ROUTINE 
CONVERT TO WORD OFFSET 
JUMP TO PROPER LOOP 
RETYPE THE MENU 

1 TURN OK LED'S 

2 TURN OTF LED'S 

3 ONLINE ATTENTION 

4 WRITE PROTECT 

5 EXTENOED TRANSPORT STATUS 

6 LEAVE THE TEST 
TELL OPERATOR TO CNTRL-C FOR EX 

MOV 

MOV 

MOV 

TRAP 

ADD 

i SET PACKET TO INITIAL VALUES 

jOO SOf T INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

iSAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 

.WORO 1002 
.WORD SFIERR 
.WORD SFIMSG 

j SET UNIT NUMBER 

i SUBROUTINE NEEDS PACKET ADDRESS 

j ISSUE WRITE CHARACTERISTICS 

tBR, IF COMMANO ISSUED OK 

j SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
.WORD 1005 
.WORD WRTMSG 
.WORD SFIMSG 



IT 

OT38MS2.-CSP) 

01,-CSP) 

SP.RO 

C$PNTF 

04, SP 



I CLEAR BIT 04 

iWRITE MISC COMMANO 

iSET UP NEW WRT, SUBSYS MEM. 



COMMAND 



iNOTEj THIS COMMANO TURNS ON THE PROCESSOR FAIL LED 



MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

BCS 150$ 

MOV R0.R1 



I SET THE PACK'.T ADDRESS 
jWAIT FOR SSW TO SET 
iBR IF CARR>r SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 10: MANUAL INTERVENTION 



01-FEB-84 17:02 



Gl 



SEQ 213 



5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
bOOl 
6005 



6006 
6007 



6008 
6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
6018 



6019 
602C 
6021 
6022 
6023 



60? 4 



6025 
6026 
602 7 
6031 
6032 



067166 
067166 
067174 
067202 
067206 
067212 
067216 
067220 
067222 
067222 
067224 
067226 
067230 
067232 
067232 
067234 
067234 
067240 
067242 
067246 
067254 
067256 
067262 
067270 
067274 
T67300 
C67304 
067310 
067314 
067314 
067320 
067322 
067324 



067326 
067326 
067332 
067336 
067340 
067342 
067346 
06 7346 
06 7352 
067354 
06 7360 
067364 
067366 
067 370 
067370 
067372 
067374 



112737 
112737 
012704 
010465 
004737 
103405 
010001 

104455 
001757 
072416' 

011656* 

104406 

012700 
104441 
005037 
032737 
001005 
005237 
052737 
012701 
01113? 
012721 
011137 
012711 

012700 
104441 
000240 
000776 



012746 
012746 
010600 
104417 
062706 

012700 
104441 
005037 
004737 
103405 
010001 

104455 
001 760 
0C3646 



000000 
000025 
071220 
000000 
016146 1 



/1204' 
000100 
000060 
071206' 
0^0500' 

071210' 

000340 

000000 



073011 
000001 



000004 

000000 

002224 
015604 



071231 
071230 1 



♦ ♦4***4********4*************************** ******************** 

THIS WRITE SUB -SYSTEM MEMORY COMMANC JUST HOLDS THE LEDS OFF 

************************ ************ *****<.„*** ****** ************* 
210$: 



MOVB OO.T38BS1 

MOVB *25,T38BS0 

MOV *T38PACKET,R4 

MOV R4,TSD8(R5) 

JSR PC.CHKTSSR 

BCS 250$ 

MOV R0.R1 

ERRDF ERRN0.T38SSR.PKTSSR 



250$: 



000340 

071204' 
000100 177560 



177560 



710$ 



260$ 



20$: 



CKLOOP 




SETPRI 


4FRI07 


CLR 


TTI0N2 


BIT 


0100.&0TTICSR 


ENE 


710$ 


INC 


TTI0N2 


BIS 


*100,00TTICSR 


MOV 


♦TTIVEC.R1 


MOV 


(RD.TVSAV2 


MOV 


♦590$. (Rl). 


MOV 


(RD.TPSAV2 


MOV 


♦PRI07,(R1) 


SETPRI 


OPRIOO 


NOP 




BR 


260$ 



PRINTF 0T38MS2 



{CLEAR BIT 04 

i STOP DRIVE TEST 22 

I SET UP N*W WRT. SUBSYS MEM. COMMAND 

I SET THE PACKET ADDRESS 

i WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

j LOOP ON ERROR, IF FLAG SET 

TRAP 

jPAISE THE PRIORITY 

MOV 
TRAP 

j ASSUME INTERRUPTS ARE ENABLED 

lARE TTI INTERRUPTS ON ? 

I BRANCH IF YES 

jFLAG SET IF INTERRUPTS OFF 

i ENABLE INTERRUPTS 

jSTART OF TTI VECTORS 

I SAVE THE CURRENT TTI VECTOR 

jSET NEW INTERRUPT ROUTINE 

jSAVE THE VECTOR PRIORITY 

lUSE PRIORITY SEVEN 

j LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 

I ALLOW CNTL C 

lLOOP UNTIL STOPPED 



i TELL' EM WHAT TO TYPE 



C$ERDF 
IOC 
T38SSR 
PKTSSR 

C$CLP1 

*PRI07 # R0 
C$SPRI 



OPRIOO.RO 
C$SPRI 







MOV OT38MS2.-CSP) 






MOV 61.-CSP) 






MOV SP.RO 






TRAP C$PNTF 






ADD 04 , SP 


SETPRI 


OPRIOO 


jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRiOO.RO 
TRAP C$EPRI 


CLR 


INTRECV 


jCLEAR INTERRUPT RECEIVED FLAG 


JSR 


PC.SOFINIT 


lOO SOFT INIT OF CONTROLLER 


BCS 


300$ 


i BR IF SOFT INIT - OK 


MOV 


R0.R1 


j SAVE CONTENTS OF TSSR 


ERROF 


ERRN0.SFIERR.SF1MSG 


jDEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 1008 
.WORD SFIERR 



TSV5 - HARDWARE 
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6033 
6034 
6035 
6036 
6037 
6038 
6042 
6043 



6044 
6045 
6046 
604? 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6059 



6060 
6061 



6062 



6063 



6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
607? 
6073 



067376 
067400 
067400 
067406 
067414 
067420 
067424 
067426 
06*M30 
067430 
06743? 
0674?A 
06743t> 
067440 
067440 
067444 
067450 
067454 
067456 
067462 
06 7466 
0674 70 
067474 
067500 
067502 
067504 
067504 
067506 
067510 
067512 
067514 
067514 
067516 
067516 
067522 
067526 
067530 
067532 
067536 
067536 
067542 
067546 
067550 
067552 
067556 
067556 
067562 
067564 
067570 
067576 
067600 
067604 
067612 
067616 
067 $22 
067626 
067632 



TESTS MACRO 
INTERVENTION 

011644' 



HI 



M1113 01-FEB-84 I7t02 



013737 002202' 071740' 

012737 000040 071736' 

012704 071720 4 

004737 010472' 
103405 
010001 

104^56 
001.61 
005052' 
011644' 

012704 071750' 

010465 OOOOOO 

004737 016060' 

005002 

016501 000002 

032701 00O100 

001402 

052702 000100 

052702 000200 

020201 

001404 

104456 
001762 
072626' 
011656' 

104406 

012746 072716* 

012746 000001 

010600 

104417 

062706 000004 

0*2746 073011' 

012/46 000001 

010600 

104417 

062706 00OO04 

012700 000340 
104441 

005037 071204' 
032737 OOOIOO 177560 
001005 

005237 071*04' 

052737 OOOIOO 177560 

012701 000060 
011137 071206' 
012721 070500' 
01x137 071210' 
012711 000340 



300$: 



MOV 


UNITN.T38DSW 




MOV 


*6IT5,T38EAI 




MOV 


0T38PX2.R4 




JSR 


PC.WRTCHR 




BCS 


310$ 




MOV 


R0,R1 




ERRHRD 


ERRNO.WRTMSG. 


SFIMSG 



310$: 



320$: 



MOV 


*T38PK3,R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


CLR 


R? 


MOV 


TSSR(R5),Rl 


BIT 


©0FL.R1 


BEQ 


320$ 


BIS 


«>0FL.R2 


BIS 


♦SSR.H2 


CMP 


R2,R1 


BEQ 


350$ 


ERRHRD 


ERRN0.T38SST.PKTS5R 



350$: 



CKLOOP 
PRINTF 



720$ 



0T38MS1 



PRINTF 0T38M52 



SETPRI 0PRI07 



CLR TTI0N2 

BIT *100,S*TTICSR 

BNE 720$ 

INC TTI0N2 

BIS *100,B*fTICSR 

MOV ♦TTIVEC.Rl 

MOV (RD.TVSAV2 

MOV *590$,(R1)» 

MOV (Rn,TPSAv2 

MOV *PRI07,(R1) 



SEQ 214 



.WORD SFIMSG 

I SET UNIT NUMBER IN PACKET 

lENABLE ATTENTION INTERRUPTS 

I SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

>BR, IF COMMAND ISSUED OK 

jSAVE CONTENTS OF TSSR 

1 WRITE CHARACTERISTIC FAILED 

TRAP CIEWHRD 
, WORD 1009 
♦WORD WR1MSG 
.WORD SFIMSG 



l SET UP NEW PACKET FOR MESS BUF 

i MESSAGE BUFFER RELEASE ,ACK ,CVC 

iWAIT FOR SSR TO SET 

iMAKE SURE ALL IS CLEAR 

jGET TSSR STATUS 

I IS OFL SET 

»BR. IF OFL IS NOT SET 

jSET OFL IN EXPECTED 

j SET UP EXPECTED 

;IS EVERYTHING OK 

» BR, IF ALL lb WELL 

i DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WOP.D 

jLOOP ON ERROR, IF FLAG SET 

TRAP 

I TELL OPERATOR TO TOGGLE SWITCH 

MOV 
MOV 
MOV 
TRAP 
ADD 

I TELL OPEFv.UOR TO DO tC TO EXIT 

MOV 
MOV 
MOV 
TRAP 
ADD 



R£L 

-1 CMD 



CIERHRO 

1010 

T38SST 

PKTSSR 

CICLP1 

*T3«MS1,-(SP) 
01, <SP) 
SP.RO 
C$PNTF 
*4,SP 



} RAISE THE PRIORITY 



MOV 

TRAP 
ENABLED 
? 



jASSUME INTERRUPTS ARE 

lARE TTI INTERRUPTS ON 

i BRANCH IF YES 

iFLAG SET IF INTERRUPTS OFF 

j ENABLE INTERRUPTS 

iSTART OF TTI VECTORS 

j SAVE THE QWRENT TTI VECTOR 

j SET NEW INTEPRUPT ROUTINE 

i SAVE THC VECTOR PRIORITY 

jUSE PhIORIT v SEVEN 



♦T38MS2, 
♦ I. -(SP) 
SP.RO 
C$PNTF 
*4.SP 

♦PRI07.R0 
C$SPR1 



(SP) 



TSV5 - HARDUARE TESTS MACRO M1113 
TEST 10: MANUAL INTERVENTION 



01-FEB-84 17:02 



II 



6074 



6075 
6076 
6077 
6078 
6079 



0080 
6081 
6082 
608,5 



6084 
6085 



6086 
6087 
6088 



6089 

6090 
6091 
609£ 
6093 
6094 
6095 
6099 
6100 



6101 

6104? 
6103 



067636 
067636 
067642 
067644 
067646 
067652 
067654 
067656 
067656 
067662 
067666 
067670 
06767? 
067676 
067702 
067/06 
067710 
067710 
067714 
067720 
067 722 
067724 
067730 
067732 
067732 
067736 
06 7 742 
067744 
06/746 
067752 
067756 
067/62 
067762 
067764 
067766 
067770 
067/72 
067774 
067 7 76 
067776 
067776 
O/OOCO 
070004 
070006 
070012 
07001? 
070016 
070020 
070022 
70022 
070024 
070026 
070030 
070032 
070032 
70034 
070042 



012700 000000 

104441 

000240 

005737 002224' 

001001 

000773 

012746 C72506' 
012746 000001 
010600 
104417 

062706 000004 
016501 000002 
032701 000100 
001011 

012746 072536' 

012746 000001 

010600 

104417 

062706 000004 

000410 

012746 072572' 

012746 000001 

010600 

104417 

062 706 000004 

005037 002224' 

000137 067400' 

104443 
000404 

073544' 
000120 
073055' 
177777 



103371 

005737 073544 

001002 

000137 066452 

O04737 015604' 

103405 

010001 

104455 
001763 
003646' 
011644' 



104406 
013737 
012704 



SETPRI OPRIOO 



360$s 



370*! 



NOP 




TST 


INTRECV 


BNE 


370$ 


BR 


360$ 


PRINTF 


0T38INT 



MOV TSSR(R5),R1 

BIT OOFL.Rl 

BNE 380$ 

PRINTF 0T380NL 



380$; 



BR 390$ 

PRINTF 0T380FL 



390$: 
25$ : 



CLR INTRECV 

JMP 30O$ 

GMANIL T38MSG , T38DAT , - 1 , NO 



BNCOMPLETE 25$ 



27$: 



400$: 



002202 
071720 



071740 



TST 
BNE 
Jh*P 

JSR 
BCS 
MOV 
ERROF 



CKLOOP 

MOV 
MOV 



T38DAT 

27$ 
2$ 

PC. SOT INI T 

400$ 

RO.Rl 

ERRNO.SFIERR.SFIMSG 



SEQ 215 



i LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 

i ALLOW CONTROL C 

jDIO AN INTERRUPT OCCUR ? 

I BRANCH IF YES 

I WAIT SOME MORE FOR INTERRUPT 

; "INTERRUPT RECEIVED" 

MOV 
MOV 
MCV 
TRAP 

ADD 

iREAD TSSR STATUS 

{CHECK THE OFF-LINE BIT 

iBR, IF DRIVE IS OFF-LINE 

j "DRIVE IS NOW ON-LINE" 

MOV 

MOV 

MOV 

TRAP 

ADD 

j ALMOST DONE 

j "DRIVE IS NOW OFF-LINE" 

MOV 

MOV 

MOV 

TRAP 

ADD 

i CLEAR INTERRUPT FLAG 

{TRY AGAIN 

i WAIT FOR OPERATOR TO MOUNT TAPE 

TRAP 
BR 

.UORD 
.WORD 
.WORD 
.WORD 



OPRI00,R0 
C$SPRI 



iRETRY IF ERROR 



10000$ 



OT38INT.-CSP) 
01, -(SP) 
SP.RO 
C$PNTF 
04, SP 



OT380NL, -(SP) 
01. -(SP) 
SP.HO 
CIPNTK 
04, SP 



0T380f L.-(SP) 
01. -(SP) 
SP.RO 
C$PNTF 
04.SP 



C$GMAN 
10000$ 
T38DAT 
T$C0DE 
T38MSG 
<1 



{DID OPERATOR SAY • YES' 
iBRANCH IF YES 
iRETURN TO MAIN MENU 



BCC 
? 



25$ 



j DO 'SOFT INIT OF CONTROLLER 
{BR IF SOFT INIT - OK 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL ERROR DURING INIT 

TRAP 



UNITN.T38DSW 
0T38PK2.R4 



{LOOP IF SELECTED 

j SET UNIT NUMBER 
{SUBROUTINE NEEDS 



.WORD 
.WORD 
,WORD 

TRAP 



C$EROF 
1011 
SFIERR 
SFIMSG 

C5CLP1 



PACKET ADDRESS 



TSV5 - HARDWARE TESTS MACRO M1U3 
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Jl 



Ol-FEB-84 



6104 
6105 
6109 
6110 



6111 

6112 
bll3 
6114 
6115 
6116 
6120 



6121 
6122 

6123 
6124 
6125 
63 26 
6127 
6128 
6129 
6130 
6131 
0132 
6133 
6137 



6138 

6139 
6140 
6141 
6142 
6143 
6147 



6148 

6149 
6150 
6151 
6152 



070046 
070052 
070054 
070056 
070056 
070060 
070062 
070064 
070066 
070066 
070070 
070074 
070076 
070102 
070104 
070106 
070106 
070110 
070112 
070114 
070116 
0*0122 
070122 
070124 
070130 
070132 
070136 
070144 
070150 
070154 
070160 
070164 
070170 
070172 
070174 
070174 
070176 
070200 
070202 
070204 
070204 
070206 
07C212 
070214 
070220 
070222 
070224 
070224 
70226 
070230 
070232 
070234 
070234 
070236 



0047*7 010472' 

I034v,3 

010001 

104456 
001764 
005052' 
011644' 



17:02 



JSR 
BCS 
MOV 
ERRHRO 



104406 
013701 
010102 
0527C2 
020102 
C i406 



410$: CKLOOP 



071244 
000004 



430$: 



104456 

001765 

072234' 

015304' 

005237 002222' 

104406 

005737 002222' 

001402 

000137 066452' 

017737 112762 071772' 435$: 

012704 071770' 

010465 000000 

004737 016060' 

016501 000002 

012702 100206 

020102 

001404 

104456 
001766 
072150' 
011656 



104406 

013701 071244' 

010102 

052702 004000 

020102 

001404 

104456 
001767 
072275' 
C15304' 

104406 

000137 0*6452' 



440$ 



INC 
CKLOOP 

TST 
BEQ 
JMP 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
ERRHRD 



CKLOOP 



450$ 



CKLOOP 
JMP 



PC.WRTCHR 

410$ 

R0.R1 

ERRNO.WRTMSG.SFIMSG 



MOV 


T38BFR*6,R1 


MOV 


R1.R2 


BIS 


0BIT2.R2 


CMP 


R1.R2 


BEQ 


430$ 


ERRHRD 


ERRN0,T38WRL, EXPREC 



FATFLG 



FATFLG 

435* 

2$ 

BFREE.T38WR 

#T38PK4,R4 

R4.TSDBCR5) 

PC.UAITF 

TSSR(R5).Rl 

0SC!SSR!BITl,»BIT2,R2 

R1.R2 

440$ 

ERRN0.T38WRT.PKTSSR 



MOV 


T38BFR*6.R1 


MOV 


R1.R2 


BIS 


*flITll,R2 


CMP 


R1.R2 


BtQ 


450$ 


ERRHRD 


ERRNG,T38WLE, EXPREC 



2$ 



SEQ 216 



» ISSUE WRITE CHARACTERISTICS 
l BR, IF COMMAND ISSUED OK 
j SAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTIC 



lLOOP XF SELECTED 



FAILED 




TRAP 


C$ERHRC 


.WORD 


1012 


.WORD 


WRTMSG 


. WORD 


SFIMSG 



TRAP 



;PICK UP XSTO CONTENTS 

j SET UP EXPECTED 

iSET UP THE WRITE LOCKED BIT 

I ARE THEY CORRECT 

iBR, IF ALL IS WELL (OK) 

j "WRITE LOCKED BIT IS NOT SET 

TRAP 
.WORO 
.WORD 
.WORD 

jSET FATAL FLAG 

(LOOP IF SELECTED 

TRAP 

,WAS THE DRIVE NOT WRITE LOCKED 

iBR, IF FLAG NOT SET 

i RE -WRITE MENU 

j SET UP WRITE BUFFER ADDRESS 

iGET PACKET ADDRESS 

j SET Tir-: PACKET ADDRESS 

lUAIT FOR S5R TO SET 

jGET TSSR 

iSET UP EXPECTED 

j ARE THEY EQUAL (CORRECT) 

iBR, IF CORRECT STATUS 

l M TS3R INCORRECT AFTER 



lLOOP ON ERROR, IF FLAG 



jREAD XSTO CONTENTS 
}SET UPR EXPECTED 
jSET THE WRITE LOCK 
tWA! 



C$CLP1 



ETC." 
C$ERHRD 
1013 
T38WRL 
EXPREC 



C$CLP1 



WRITE C 


OMMANO 


TRAP 


CIERHRD 


.WORD 


1014 


.WORD 


T38WRT 


.WORD 


PKTSSR 


, SET 




TRAP 


C$CLF J 1 



ERROR BIT (XSTO) 



THE BIT SET 
iBR, IF IT WAS (GOOD) 
j "WRITE LOCK ERROR BIT 



jLOOP IF SELECTED 
jGO BACK TO MENU 



NOT SET" 




TRAP 


C$ERHRD 


.WORD 


1015 


.WORD 


T38WLE 


.WORD 


EXPREC 



TRAP 



C$CLP1 



j ********** ******.«******** *******♦***♦*+*******+*+***********+***** 

I SERVO EXERCISER NO LOGGER USED 
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Kl 



6153 
6154 
6155 



615o 
6157 
615A 
6162 
6163 



6164 
6165 
6166 
616? 
6171 
6172 



6173 

6174 
6175 
6176 

6177 
6178 
6179 
6180 
C184 



6185 
6186 



61*7 
6188 
6189 
6190 
6191 
6192 
ul93 
6194 
6195 
6196 
6197 



070242 
070242 
070242 
070246 
070252 
070254 
070256 
070262 
070266 
070272 
070274 
070276 
070276 
070300 
070302 
070304 
070306 
070314 
070320 
070324 
070326 
070330 
070330 
070332 
070334 
070336 
070340 
070340 
070346 
070354 
070360 
070364 
C7037O 
070372 
070374 
070374 
070376 
070400 
70402 
070404 
070*04 
070406 
070406 
070412 
070414 
070420 
070426 
070430 
070434 
070442 
070446 
070452 
070456 
070462 
70466 
070466 



012746 
012746 
010600 
104414 
062706 
004737 
004737 
103405 
010001 

104455 

001770 

003646' 

011644' 

013737 

012704 

004737 

103405 

OiOOOl 

104456 
001771 
005052' 
011644' 

112737 
112737 
012 7 04 
010465 
004737 
103405 
010001 

104455 
001772 
072416' 
011656' 

104406 

012700 
104441 
005037 
032737 
0010'-.; 
00523 ? 
052737 
012701 
011137 
012721 
011137 
012711 



072055 
000001 



000004 

073546' 

015604' 



002202' 

1 ; 7 n a > 

010472' 



OOOOOO 
000020 
071220 
OOOOOO 
016146 



000340 

071204' 
000100 

071204' 

000100 

000060 

071206' 

070500* 

071210' 

000540 



01-F c .B-84 17;02 



j + V ************ 

30$; 

PRINTB 



SEQ 217 



********* *****+*+*+****+++********************+*♦**+♦ 



071/40' 500$: 



07123^' 
071230 



510$ 



550$: 



177560 
177560 



555$: 



OT38M53 



JSR 


PC.T38REST 


JSR 


PC.SOFINIT 


BCS 


5001 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



MOV 


WITN.T38DSW 


MOV 


0T38PK2.R4 


JSR 


PCWRTCHR 


BCS 


510* 


MOV 


R0,R1 


6RRHRD 


ERRNO.WRTMSG, SFIMSG 



MOVB 


*0.T38BS1 


MOVB 


*20,T38BS0 


MOV 


*T38PACKET t R4 


MOV 


R4.TSDRCR5) 


JSR 


PC.CHKTSSR 


BCS 


550$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T38SSR.PKTSSR 



012700 OOOOOO 



CKlOOP 




SETPRI 


0PRI07 


CLR 


TTI0N2 


BIT 


«100,a*TTICSR 


BN€ 


555$ 


INC 


TTI0N2 


BIS 


*100,SOTTICSR 


MOV 


•TTIVEC.Rl 


MOV 


(RD.TVSAV2 


MOV 


*590$,(R1)* 


MOV 


CRD.TPSAV2 


MOV 


*PRI07,(R1) 


SETPRI 


OPRIOO 



I "EXE ANY OTHER MENU SELECTION 

MOV 
MOV 
MOV 
TRAP 
ADD 
»SET PACKET TO INITIAL VALUES 
>D0 SOFT INIT OF CONTROLLER 
j BR IF SOFT INIT - OK 
;SAVE CONTENTS OF TSSR 
j DEVICE FATAL ERROR DURING I. .IT 

TRAP 
.WORD 
.WORD 
.WORD 
jSET UNIT NUMBER 

j SUBROUTINE NEEDS PACKET ADDRESS 
ilSSUE WRITE CHARACTERISTICS 
j BR, IF COMMAND ISSUED OK 
jSAVE CONTENTS Of tc 5R 
jWRITE CHARACTERI TISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



TO STOP 
0T38MS3.-CSP) 
01,-CSP) 
SP.RO 
C$PNTB 
04 t SP 



C$ERDF 
1016 
SFIERR 
SFIMSG 



C$ERHRD 
1017 
WRTMSG 
SFIMSG 



iCLEAR BIT #4 
jEXECUtt DRIVE TEST 22 
;SET KP NEW WRT . SUBSYS MEM. COhuAND 
iSET THE PACKET ADDRESS 
{WAIT FOR SSR TO SET 
:BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 
jDEVICE FATAL SSR FAILED TO SET 

TRAP 



{LOOP ON ERROR. IF FLAG 
jRAISE THE PRIORITY 



.WORD 

.WORD 

.WORD 

SET 

TRAP 



MOV 

TRAP 
ENABLED 
? 



C$ERDF 
1018 
T38SSR 
PKTSSR 

CICLP1 

$PRI07,R0 
C$SPRI 



jASSLME INTERRUPTS ARE 

jARE TTI INTERRUPTS ON 

I BRANCH IF YES 

jFLAG SET IF INTERRUPTS OFF 

{ENABLE INTERRUPTS 

iSTART OF TTI VECTORS 

{SAVE THE CURRENT TTI VECTOR 

{SET NEW INTERRUPT ROUTINE 

I SAVE THE VECTOR PRIORITY 

tJSE PRIORITY SEVEN 

I LOWER INTERRUPT BR LEVEL 

MOV 



3PR100.R0 
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LI 
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070472 


104441 






6198 


070474 


000240 






6199 


070476 


000776 






6200 










6201 










6202 










6203 










6204 


070500 


010046 






6205 


070502 


113700 


177562 




6206 


070506 


042700 


000200 




6207 


070512 


122700 


000015 




6208 


070516 


001075 






6209 


070520 


012766 


066452' 


000002 


6210 


070526 


005066 


000004 




6211 


070532 


013737 


071206' 


000060 


6212 


070540 


013737 


071210* 


000062 


6213 


070516 


112737 


000025 


071230' 


6214 


070554 


112737 


000000 


071231' 


6215 


070562 


012704 


071220' 




6216 


070566 


010465 


000000 




6217 


070572 


012737 


176750 


071212' 


6218 


070600 


0O4737 


016060' 




6219 


070604 


016501 


00C002 




6220 


070610 


032701 


000200 




6221 


070614 


001017 






6222 


070616 










070616 


012727 


000250 






0706^2 


OOOOCO 








070624 


013727 


002116' 






070630 


000000 








070632 


005367 


177772 






070636 


001375 








07C; •- 


005367 


177756 






0706^»m 


001367 






6223 


070646 


005337 


071212' 




6224 


070652 


001352 






6225 


070654 


004 73 7 


016146' 




6226 


070660 


103405 






6227 


070662 


010001 






6231 


070664 
070664 
070666 
070670 
070672 


104455 
001773 
072416' 
011656' 






6232 


070*74 

0706/4 


104406 






6233 


070676 


005737 


071204' 




6234 


070702 


001403 






6235 


070704 


042737 


0U0100 


177560 


6236 


C70712 


012600 






6237 


070714 


000002 






6238 


070716 








6239 


O70716 


004 737 


073546' 




6240 


070722 


004737 


015604' 




6241 


070726 


103405 






6245 


070730 


010001 






6246 


070732 









560$ i 



NOP 
BR 



560$ 
IpROCESS CONSOLE INTERRUPTS 



j LOOP AWHILE 

l STAY IN "TIGHT" LOOP 



TRAP 



SEQ 218 



C$SPRI 



590$ 



592$ 



MOV RO.-CSP) 

M0V8 &4TTIBFR.R0 

BIC #200, RO 

CHP8 #15. RO 

BNE 591$ 

MOV #2$,2(SP) 

ClR 4CSP) 

MOV TVSAV2,S#TTIVEC -.RESTORE 

MOV TPSAV2,B*TTIVEC*2 

MOVB s>25,T38BS0 

MOVB #0,T38BS1 

MOV OT38PACKET.R4 

MOV R4.TS0BCR5) 

MOV #65000.. T380LY 

JSR PC.UAITF 

MOV TSSRCR5).R1 

BIT 0SSR.R1 

BNE 595$ 

DELAY 250 



595$ 



580$ 



591$ 
35$} 



;SAVE WORK REGISTER 
»GET THE OPERATOR INPUT 
l STRIP OFF PARITY BIT 
j IS IT A CARRIAGE RETURN ? 
{JUST EXIT IF NOT 
{RETURN TO MASTER MENU 
{FORCE PRIORTY 
VECTOR 
{RESTORE SUPER PRIORTY 
{STOP DRIVE TEST 22 
{CLEAR BS1 

{SET UP NEW 1IRT. SUBSYS MEM. COMMAND 
{SET THE PACKET ADDRESS 
{SET UP DELAY COUNTER 
{DO A WAIT FOR SSR 
{C0NTF«,5 OF TSSR REGISTER 
i CHECK FOR VSSR SET 
{KEEP GOING IF NOT SET 
{CALL DELAY ROUTINE 









MOV 


•250.CPC)* 








.WORD 











MOV 


L$DLY.CPO* 








.WORD 











DEC 


-6<PC) 








BNE 


.-4 








DEC 


-22CPC) 








BNE 


,-20 


DEC 


T38DLY 


{BLA1P COUNTER DOWN 






BNE 


592$ 


{BR. IF MORE TIME LtFT 






JSR 


n C,CHKTSSR 


{WAIT FOR SSR TO SET 






BCS 


580$ 


jBR IF CARRY SET CGOOC 


RETURN) 




MOV 


R0.R1 


{SAVE CONTENTS OF TSSR 






ERRDF 


ERRN0,T38SSR,PKTSSR 


{DEVICE FATAL SSR FAILED TO SET 










TRAP 


C$ERDF 








.WORD 


1019 








.WORD 


T38SSR 








.WORD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR, IF FLAC 


; SET 

iRAP 


C$CLP1 


TST 


TTI0N2 


jARE SUPER INTERRUPTS ENABLED 





BEQ 591$ 

BIC OlOO.aOTTICSR 

MOV CSP)*.RO 

RTI 

JSR PC.T38REST 

JSR PC.SOFINIT 

BCS 600$ 

MOV R0.R1 

ERROF ERRNO.bMttiH.Lt IMbG 



{BR. IF YES 
{RESTORE REGISTER 
{RESTORE REGISTER 
{RETURN 

{SET PACKET TO INITIAL VALUES 
j DO SOFT INIT OF CONTROLLER 
i BR IF SOFT INIT ■ OK 
jSAVE CONTENTS OF TSSR 
{DEVICE FATAL ERROR DURING INIT 



TSV5 - HARDWARE TESTS MACRO MJ.113 
TEST 10 i MANlTL INTERVENTION 



Ml 



01-FEB-64 



6247 

6248 
6249 
6250 
6251 
6252 
6253 
6254 
6255 
6256 
6257 
6258 
t262 
6263 



6264 

6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 



6275 
6276 
6277 
6278 
6279 
6283 



6284 



6286 



07C732 
070734 
070736 
070740 
070742 
070742 
070744 
0^0750 

070754 
070756 
070762 
070764 
070766 
070774 
071000 
071004 
071006 
071010 
071010 
071012 
071014 
071016 
071020 
071020 
071022 
071030 
071036 
071042 
071046 
071054 
071060 
071064 
071070 
071072 
071072 
071076 
071100 
071104 
071106 
071112 
071U4 
071120 
071122 
071126 
0/1130 
071134 
071136 
071140 
071140 
071142 
071144 
071146 
071150 
071150 
071152 
071156 



104455 
001774 
003646' 
011644' 

104406 

012701 071236 

012702 125252 



600$: 



601$: 



610$: 



071231 
071230 



071212' 



620$: 



010221 

022701 071712' 

001401 

000773 

013737 0C2202' 071740' 605$: 

012704 071720' 

004737 010472' 

103405 

010001 



104456 
001775 
005052' 
011644' 

104406 

112737 000000 

112737 000024 

012^0 071220' 

010165 000000 

012737 00014s 

004737 016C60' 

016501 000002 

52701 000200 
001017 

012727 000250 

000000 

013727 002116* 

000000 

005367 177772 

001375 

005367 177756 

001367 

005337 071212' 

001352 

004737 016146' 

103405 

010001 

104455 
001776 
072416* 
0H656' 

104406 

012700 071256' 

005001 



(ive 






SEQ 219 






TRAP 


C$ERDF 






.WORD 


1020 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


0T38BFR.R1 


j ADDRESS OF MESSAGE BUFFER 




MOV 


0125252. R2 


-.ALTERNATING l'S AND 0' S 




MOV 


R2.CRD* 


j CLEAR OUT THE MESSAGE BUFFER 




CMP 


OT38EB.R1 


{END OF 8UFFER YET 




BEQ 


605$ 


{BR, IF AT END OF BUFFER 




BR 


601$ 


jNOT AT END KEEP GOING 




MOV 


UNITN.T38DSU 


{SET UNIT NUMBER 




MOV 


OT38PK2.R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


{ISSUE WRITE CHARACTERISTICS 




BCS 


610$ 


{BR. IF COMMAND ISSUED OK 




MOV 


R0.R1 


{SAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG, SFIMSG 


{WRITE CHARACTERISTIC FAILED 





CKLOOP 



630$: 



650$: 



DEC 
BNE 
JSR 
BCS 
MOV 
ERRDF 



CKLOOP 



{LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



MOVB 


OO.T38BS1 


MOVB 


024.T38BS0 


MOV 


0T38PACKET.R4 


MOV 


R4.TS0BCR5) 


MOV 


0100. .T38DLY 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


BIT 


OSSR,Rl 


BNE 


630$ 


DELAY 


250 



CJERHRO 
1021 
WRTMSG 
SFIMSG 

C$CLP1 



CLEAR BIT 04 

READ EXTENDED DRIVE STATUS 

SET UP NEW WRT. SUBSYS MEM. 

SET THE PACKET ADDRESS 

SET UP DELAY ROUTINE 

WAIT AWHILE FOR SSR TO SET 

SEE IF IT REALLY DID 

JUST CHECK THAT BIT 

BR. IF SSR IS SET 

DELAY ABOUT .25 SEC 



COMMAND 



T38DLY 

620$ 

PC.CHKTSSR 

650 i 

R0.R1 

ERRN0.T38SSR.PKTSSR 



MOV 


0250. (PC)* 


.UORD 





MOV 


L*L)LY,(PC) + 


.WORD 





DEC 


-6(PC) 


BNE 


. -4 


OEC 


-22CPC) 


BNE 


.-20 



MOV 
CLR 



OT38BFR^O,RO 
Rl 



START DELAY COUNT DOWN 

BR, IF COUNTER IS NOT AT DONE 

WAIT FOR SSR TO SET 

BR IF CAHHY SET (GOOD RETURN) 

SAVE CONTENTS OF TSSR 

DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

LOOP ON ERROR, IF FLAG SET 

TRAP 

MESSAGE BUFFER ADDRESS 

NO HIGH ORDER ADDRESS BITS 



CJERDF 
1022 
T38SSR 
PKTSSR 

C$CLP1 



TSV5 - HARDWARE TESTS MACRO M1U3 
TEST 10; MANUAL INTERVENTION 



Nl 



01-FEB-84 17:02 



SEQ 220 



6287 


071160 


005037 003134' 


- ?88 


071164 


004737 073604' 


6289 


071170 


000137 066452' 


6290 






6291 






6292 


071174 


000137 000200 


6295 


07120C 






071200 


104432 




071202 


003054 


£.294 






6295 






6296 






6297 






6298 






6299 






6300 






6301 






6302 






6303 






6304 






6305 


071204 


000000 


6306 


071206 


000000 


6307 


071210 


000000 


6308 






6309 


071212 


000000 


6311 


071214 




6313 


071220 




6314 


071220 


140006 


6315 


071222 


071230' 


6316 


071224 


000000 


6317 


071226 


000012 


6318 


071230 




6319 


071230 


00") 


6320 


071231 


00 J 


6321 


C1232 


000000 


6322 


071234 


000000 


6323 


0;i236 




6324 


071712 


000000 


6325 






6326 






6328 


071714 




6330 


07172C 




6331 


071720 


14000* 


6332 


071722 


071730' 


6333 


071724 


OOOOOO 


6334 


0717^6 


000012 


6335 






6336 






6337 


071730 




6338 


0/1730 


071236' 


6339 


071732 


OOOOOO 


6340 


071734 


000400 


6341 


071736 


OOOOOO 


6342 


071740 


OOOCOO 


6344 


071742 




6346 


071750 


140212 


6347 


071752 


OOOOOO 



63$ ; 
64$: 



CLR 
JSR 
JMP 



JMP 
EXIT 



KTENABLE 

PC.T38MBP 

2$ 



200 
TST 



{NO KT11 STUFF EITHER 

j GO PRINT MESSAGE BUFFER CONTENTS 

{GO BACK TO MENU 



{REALLY RETURN TO THE SUPERVISOR 

{LEAVE TEST 

TRAP J$EXIT 
.WORD L10075- 



LOCAL TEXT MESSAGES FOR TEST 



LOCAL STORAGE FOR THIS TEST 



LOCAL STORAGE FOR THIS TEST 







TTI0N2: 




.UORD 


TVSAV2: 


. UORD 





TP^AV2: 


.UORO 





T38DLY: 


.UORD 







.BLKB 


10-'.- 


T38PACKET : 






.WORD 


140006 




.WORD 


T38TAD 




.UORD 







.UORO 


10. 


T38TAD: 






T38BS0: 


.BYTE 





T38BS1. 


.BYTE 





T38BS2: 


.UORD 







.WORD 





T38BFR: 


.BLKU 


150. 


T38EB: 


.UORD 





T38PK2: 



.8LKB 



10 <. -TSV2£7> 





.UORD 


140004 




.UORO 


T38DTA 




.WORD 







.UORD 


10. 


T38DTA: 








.UORD 


T38DFR 




.UORD 







.UORD 


256. 


T38EAI: 


.UORD 





T38DSW; 


.UORD 







.BLKB 


10-< . -TSV267- 


T38PK3: 


.WORD 


140212 




. WORD 






jWORD SE1 IF SUPERVISOR TTI INTER OFF 
;SAVE TTI VECTOR 
{SAVE TTI PRIORITY 

I DELAY COUNTER FOR TEST 

:C0MMAN0 PACKET FOR TEST 

{UfclTE SUBSYSTEM MEM. CMO , ACK,CVC"1 

?ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{BSELC BYTE 
{BbELl BYTE 
{BSEL1 UORD 
iDATA 

{MESSAGE BUFFER 
{END OF BUFFER ADDRESS 



t COMMAND PACKET FOR TES T 

jURITE CHARA. MEM. CMND.. ACK.CVC-1 

{ADDRESS OF SELECT DATA BLOCK 

{STARTING VALUE OF BLOCK SIZE 



{SELECT DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{EAI BIT UORD 

{DRIVE SELECT UORD ETC 

{MESSAGE BUFFER RELEASE COMMAND 

{NOT USED 



TSV5 - HARDWARE TESTS MACRO Ml 113 
TEST 10; MANUAL INTERVENTION 



B2 



6348 
6349 
6350 
6351 
6352 
6353 
6355 
6357 
6358 
6359 
6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
636b 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6370 
6379 
6380 
6381 
6382 
6383 
6384 
6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 



071754 
071756 
071760 



071762 
071770 
071772 
071774 
071776 



072000 
072055 
072150 
072234 
072275 
072342 
072416 
072506 
072536 
072572 
072626 
072716 
073011 
073055 
073115 

073142 
073156 

073166 
073240 
073266 
073320 
073353 
073407 
073435 
073500 
073543 



000000 
000000 
000000 



140005 

oooooo 

000000 
000400 



123 
045 
124 
127 
127 
127 
103 
045 
045 
045 
103 
045 
045 
111 
115 



012 
012 
Oil 
Oil 
Oil 
Oil 
Oil 

on 

000 



01-FEB-84 17;02 



.WORD 
.WORD 
.WORD 



SEQ 221 



164 

116 
123 
122 
122 
122 
157 
116 
lib 
116 
157 
116 
116 
163 
141 



141 
045 
123 
111 
111 
111 
156 
045 
045 
045 
156 
045 
045 
040 
156 









iWRITE TAPE PACKET 



,BLKB 

T38PK4: .WORD 

T36WR? .WORD 

WORD 

T30SIZ1 IWORD 



10-<.-TSV2£7> 

140005 





256. 



j NOT USED 
I NOT USED 
iNOT USED 



I WRITE. ACK, CVC-1 COMMAND 
l ADDRESS OF WRITE BUFFER 
iMORE AODRESS OF WRITE BUFFER 
I SIZE OF RECORD 



» ♦ 

lLOCAL TEXT MESSAGES FOR TEST 

1 * 



T38NEt 

T38MS3> 

TSdWRTt 

T3*WRLi 

T38WLEt 

TS8NBA-. 

T35SSRJ 

T38INT: 

TSftONU 

T560TL: 

T38SST; 

T38MS1; 

T38MS2: 

T38MSG: 

T38ID: 



073166* 073240' 073266' MIMENUs 
073435' 073500' 073543' 



123 
Oil 
061 
062 
063 
064 
065 
066 



105 
060 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 



II 

2$ 
3$ 
4$ 
5$ 

61 

81 
9$ 

XOti 



i ♦ 



.asciz 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.WORD 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



'Stand-alone Manual Intervention Not Executed' 

'*NtfA Type <RETORN> To Stop Servo Exercieer, Return To Menu' 

'TSSR Not Correct After WRITE. With WRITE PROTECT On 1 

'WRITE LOCKED Bit Not Set In XSTO' 

'WITE LOCK ERROR Bit Not Set In XSTO' 

'WRITE SUBSYSTEM MEMORY Commend Not Accepted* 

'Contente of TSSR Incorrect After WRITE SUBSYSTEM MEMORY' 

•#N*A Interrupt Received* 

•*N*A Drive Ie Now ON-LINE' 

'*N*A Drive Ie Now OFF-LINE' 

•Contente Of TSSR Incorrect Afttr MESSAGE BUFFER 

•*N*ATo0g.e ON-LINE Switch to Gancrat* ATTENTION 

•*N*AType RETURN To Rtturn To M#nu*N' 

'Ie Write -Protected Tape Mounted* 

'Manual Intervention' 

1*. 2$. St. 4$. 5$. 6* 

81. 91. 101,0 

< 12*' SELECT OPERATION FROM FOLLOWING OPTIONS;* 



RELEASE' 

Interrupts' 



<12>* 




1 
2 
3 
4 
5 
6 



Oieplay This Menu' 

Turn On All M7455 LED' 'a* 

Turn Off All M7455 LEO* * a* 

Offline/Online Attention* 

Writ* Protect Teat' 

Print Extended r raneport Statue' 

Return to Diagnostic Supervisor* 



j LOCAL STORAGE FOR THIS T&St 
I - 



C2 



TSV5 - HARDWARE 
TEST 10: MANUAL 


wham? * 


6407 


073544 


000000 




6408 


073546 






640* 


073546 






6410 


073552 


012701 


071220' 


6411 


073556 


012721 


140206 


641? 


073562 


012721 


071230 4 


M13 


073566 


005021 




• >414 


073570 


012721 


000006 


6415 


073574 


005021 




6416 


073576 


005021 




6417 


073600 


005011 




6418 


073602 


000207 




6419 








6420 








6421 








6422 








6423 








642.* 








6425 








6426 








6427 








6428 








6429 








6430 








6431 








6432 








6433 








6434 








6435 








6436 


073604 






6437 


073604 






6438 


073610 


010O05 




6439 


073612 


00573? 


003134' 


6440 


073616 


001001 




6441 


073620 


005O01 




6442 


075622 


010103 




6443 


073624 


006100 




6444 


073626 


006101 




6445 


073630 








073630 


010546 






073632 


010146 






073634 


012746 


074106* 




073640 


012746 


000003 




073*44 


010600 






073646 


104415 






073650 


062706 


000010 


6446 


073654 








075654 


012746 


074153' 




073660 


012746 


oooooi 




073664 


010600 






073666 


104415 






073670 


062706 


000004 


644 7 


073674 


010501 




6448 


073676 


010300 




6449 


073700 


001403 




6450 


073702 


004737 


Q17U0' 


6451 


073706 


010005 





11113 Oi-FEB-84 17:02 



SEQ 222 



T38DAT} .WORD 
T38RESt 5 





SAVREG 




MOV 


*T38PACKET,R1 


MOV 


0140206, CRD* 


MOV 


OT38TAD.CR1)* 


CLR 


CRD* 


MOV 


*6.,(R1)» 


CLR 


(Rl)* 


CLR 


CR1)* 


CLR 


(Rl) 


RTS 


PC 



^LOGICAL RESPONSE TO QUESTION 



I SAVE T>v REGISTERS 

I START Of THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK,CVC< 

l ADDRESS Of DATA BLOCK 

l EXTENDED ADDRESS 

» SIZE Of DATA BLOCK IN BYTES 

I CLEAR BSELO ANO BSEL1 

I CLEAR SEL2 

I CLEAR DATA AREA 

jRETURN 



THIS ROUTINE PRINTS THE CONTENTS Of 

THE 256 BYTE MESSAGE BUFFER RETURNED BY THE 

TSV-05, 



INPUT; 



RO LOW ORDER ADORcSS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS Of MESSAGE BUFFER 
NOTEj Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



T36M8P} 



910$ i 



SAVREG 




iSAVE THE REGISTERS 








MOV 


R0.R5 


iSAVE LOW ORDER ADDRESS 








TST 


KTENABLE 


1 ADDRESS ABOVE 28K? 








BNE 


910* 


»BR IF YES 








CLR 


Rl 


iSET HIGH ORDER ADDRESS TO 








MOV 


R1.R3 


iSAVE HIGH ORDER ADORESS 








ROL 


RO 


iSHl» T BIT15 TO C BIT 








ROL 


Rl 


l SHIFT TO HIGH ORDER FOR PRINTOUT 






PRINTX 


0T38ASO.R1.R5 


jPRINT MESSAGE BUFFER ADDRESS 


MOV 
MOV 


R5 t -CSP) 
Rl. -(SP) 










MOV 


OT36AS0, 


(SP) 








MOV 


*3,-(SP) 










MOV 


5P.R0 










TRAP 
ADD 


CIPNTX 
010. SP 




PRINTX 


0T38AS1 


iPRINT HEADER FOR CONTENTS 










MOV 


OT38AS1, 


(SP) 








MOV 


• l.-CSP) 










MOV 


SP.RO 










TRAP 


CtPNTX 










ADD 


C4 fc SP 




MOV 


R5.R1 


iCOPY LOW OROE,' AODRESS 








MOV 


R3.R0 


iCOPt HIGH 0RDE9 ADDRESS 








BEQ 


9131 


iBR IF NOT ABOV • 28K 








JSR 


PC.SETMAP 


I SETUP PAR ADORtSS IN RO 








MOV 


R0.R5 


I GET PAR FORMAT 4QDR&SS ABOVE 


26K 







TSV5 - HARDWARE TESTS 
TEST 10; MANUAL InTERVEN 



« M 



D2 



1113 01-FEB-84 17t0? 



SEQ 223 



6452 
6455 
6454 
6455 
6456 
6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 



6471 
64 72 
6473 



6474 
6475 
6476 
6477 
64 78 
64 79 
6480 
6481 
6482 
6483 
6484 
6485 
6486 
6487 
6488 
6489 
6490 
6491 



6492 



073710 
073714 
073716 
073722 
073724 
073726 
073732 
073734 
073736 
073740 
073742 
073744 
073750 
073752 
073754 
073760 
073762 
073766 
073772 
073772 
073774 
073776 
074002 
074006 
074010 
074012 
074016 
074022 
074024 
074024 
074026 
074030 
074034 
074040 
074042 
074044 
074050 
074054 
C 74056 
074062 
074064 
074072 
074074 
074076 
074102 
074104 

074106 
074153 

074211 
074230 

074254 
074256 
074256 
074256 



010537 
011504 
022704 
001417 
010403 
042704 
000241 
00*004 
006004 
006004 
006004 
042703 
060403 
010325 
020527 
001355 
013705 
012704 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005037 
000412 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005237 
005204 
020427 
003010 
023727 
001401 
000753 
005037 
0O0733 
000207 

045 
045 

045 
045 

00O000 



104401 



074254 1 
125252 

170377 



177760 



071712' 

074254* 
000001 



074230' 
000003 



000010 
074254 



074211 
000003 



000010 

074254' 

000200 

074254' 000004 

074254' 



913$; 


MOV 


R5,T38CNT 


HOLD ADDRESS 


911$; 


MOV 


(R5),R4 


GET BUFFER ENTRY 




CMP 


♦125252, R4 


CHECK FOR NO LOAD CONDITION 




BEQ 


912$ 


BR, IF BUFFER WASN'T LOADED 




MOV 


R4.R3 


MAKE COPY 




BIC 


0170377, R4 


ONLY BITS 11,10,9 ANO 8 ARE SAVED 




CLC 




CLEAR CARRY 




ROR 


R4 


11 TO 10 BIT POSITION 




ROR 


R4 


10 TO 9 BIT POSITION 




ROR 


R4 


9 TO 8 BIT POSITON 




ROR 


R4 


8 TO 7 BIT POSITION 




BIC 


0177760, R3 


ONLY BITS 3,2.1 ANO ARE SAVED 




ADO 


R4,R3 


"OR 'EM TOGETHER 




MOV 


R3.CR5)* 


PUT BACK IN BUFFER 




CMP 


R5,0T38EB 


END OF BUFFER YET 




BNE 


911$ 


BR, IF NOT AT ENO YET 


912$; 


MOV 


T38CNT.R5 


PUT ADDRESS BACK 




MOV 


• 1. R4 


START BYTE NUMBER AT ONE 


915$; 


PRINTX 


0T38ASN,R4,(R5)> 


jPRT MEM BUFFER W/NEWLINE 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

» CLEAR COUNTER 




CLR 


T38CNT 




BR 


921$ 


1 SKIP OTHER PRINT 


920$; 


PRINTX 


0T38ASC,R4,(R5)f 


t PRINT THE CONTENTS OF MEMORY 

MOV 



921$; 



925$: 
50$; 



INC 

INC 

CMP 

BGT 

CMP 

BEQ 

BR 

CLR 

BR 

RTS 



T38CNT 

R4 

R4,0i28, 

50$ 

T38CNT.04 

925$ 

920$ 

T38CNT 

915$ 

PC 



;BUMP COUNTER 

{NUMBER Of THE NEXT 

j DONE ALL YET ? 

j BRANCH IF ALL DONE 

i DONE FOUR YET 

j BR, IF THREE DONE 

I KEEP GOING 

j CLEAR COUNTER 
jPRINT WITH NEW LINE 

iRETURN 



MOV 


CR5)*.H'SP) 


MOV 


R4.-CSP) 


MOV 


OT38ASN,~(SP) 


MOV 


03,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADO 


010, SP 


EMORY 


BUFFER 


MOV 


(R5)*.-(SP) 


MOV 


R4.-CSP) 


MOV 


0T38ASC.-CSP) 


MOV 


03,~(SP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


010.SP 



116 
116 
101 
116 



045 
045 
040 

045 



T38AS0; .ASCIZ 
T38AS1; .ASCIZ 
T38ASC; .ASCIZ 
T38ASN: .ASCIZ 

.EVEN 
T38CNT; .WORD 

ENDTST 



«N*A Message Buffer 
#N*A Message Buffer 
*A «D4»A: «03' 
*N#A Eyte«iD4*A; *03 



Address • *0HO5 
Contents; ' 



jCOUNTER FOR PRINT 



L10075; 



TRAP 



CSETST 
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E2 



01-FEB-64 17;0? 



SEG 224 



6493 
6494 
6495 
6496 
6497 
6498 
6499 
6500 
6501 
6502 
6503 
c>504 
6505 
6506 
6507 
6508 
€509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 

6536 

6537 
6533 
6539 
6540 
6541 
6542 
654 3 
6544 
6545 
6546 
6547 
6551 
6552 



74260 
074260 
074260 
074260 
074262 
074264 
074270 
074272 
074276 
074302 
074306 
074310 
074314 
074314 
074320 
074322 
074324 
074324 
074326 



104421 
001403 
01270O 
000402 
012700 
004737 
004737 
103402 
000137 

004737 
103405 
010001 

104455 
002115 



076253 

077402 
016322 
020320 

075470 

015604 



.SBTTL TEST 11: CONFIGURATION TYPEOUT 

THIS IS A STANDALONE ROUTINE THAT PRINTS 0U~ ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE M7455 MOOULE AND TSV05 SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7455: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENOED FEATURES DISABLED), 

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7455: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 

3.0 MICROCODE REVSION LEVEL OF THE M7455, 

4,0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER. 

5.0 UNIT SELECT COOE ANO STATE C ONLINE /OFFLINE . WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADDITION. THE PROGRAM WILL INOICATE, 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 

THt- OPERATOR IS EXPCCTSID TO READ THE PRINTOUT ANC VERIFY THAT IT MATCHES 
THE ACTUAL CONFIGURATION AT HAND. IF, h OR EXAMPLE, THE PROGRAM INDICATES 
THAT IT "SEES" TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
THE OPERATOR MUST INTERPRET THIS AS AN ERROR ANO ATTEMPT TO FIND T HE 
CAUSE (BAD CABLE, FAU.TY UNIT-SELECT DECODING IN THE TRANSPORT. ETC.). 
[SINCE THE CONTROLLER CAN ONLY ACCESS UNIT C IF IT IS IN "STANOARD" 
MOOE, THE PROGRAM WILL FORCE THE MOOULE INTO EXTENOED MOOE VIA THE 
WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.] 

THIS ROUTINE, WHEN ITS ACTIONS ARF COMPLETED. WILL EXIT BACK TO THE 
DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
SELECTED (E.G., FROM THE INITIAL STARTUF DIALOG), THE ROUTINE WILL BE 
REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 





BGNTST 






RFLAGS 


RO 




BEQ 


10$ 




MOV 


0T39NE.RC 




BR 


11$ 


10$: 


MOV 


0TST39ID.R0 


11$: 


JSR 


PC.TSTSETUP 




JSR 


PC.CHKMAN 




BCS 


20$ 




JMP 


64$ 


20 J j 








JSR 


PC.SOFINIT 




BCS 


25$ 




MOV 


R0.R1 




ERRDF 


ERRNO,SFIERR,SFIMSG 



jGET OPERATOR 



Til: 

FLAGS 



TRAP 



CSRFLA 



;BR, IF OK TO RUN 

» "TEST NOT EXECUTED" 

j JUMP OUT OF TEST IF NOT 

j TEST ID MESSAGE 

iDO THE COMMON SETUP 

j IS MANUAL INTERVENTION ALLOWEO? 

jBR, IF MANUAL INTERVENTION ALLOWED 

I JUMP TO OUT IF NOT 

I DO SOFT INIT OF CONTROLLER 

)BR IF SOFT INIT - OK 

j SAVE CONTENTS OF TSSR 

lOEVICE FATAL ERROR DURING INIT 

TRAP CiEROK 
.WORD UOl 



TSV5 - HARDWARE TESTS MACRO Mil 13 
TEST 11: CONFIGURATION TYPEOUT 



F2 





074330 


003646' 






074332 


011644' 




6553 


074334 








074334 


104406 




6554 


074336 


013737 


002202' 076220 


6555 


074344 


012704 


076200' 


6556 


074350 


004737 


010472* 


6557 


074354 


103405 




6561 


074356 


010001 




656? 


074360 








074360 


104456 






074362 


002116 






074354 


00505?' 






074366 


011644' 




6563 


074370 








074370 


104406 




6564 


074372 


013701 


075530' 


6565 


074376 








074376 


012746 


077121' 




074402 


012746 


000001 




074406 


010600 






074410 


104415 






074412 


062706 


000004 


6566 


074416 


032701 


000200 


6567 


074422 


001011 




6568 


074424 








074424 


012746 


077245' 




074430 


012746 


000001 




074434 


010600 






074436 


104415 






074440 


062706 


000004 


b569 


074444 


00O410 




6570 


074446 








074446 


012 746 


077254' 




074452 


012746 


000001 




074456 


010600 






074460 


104415 






074462 


062706 


000004 


6571 


074466 








074466 


012746 


077173' 




074472 


012746 


000001 




074476 


010600 






074500 


104415 






074502 


062706 


000004 


6572 


074506 


032701 


000100 


6573 


074512 


001011 




6574 


074514 








074514 


012746 


077245* 




074520 


012746 


000001 




074524 


010600 






074526 


104415 






074530 


062706 


000004 


6575 


074534 


000410 




6576 


074536 








074536 


012746 


077254' 




074542 


012746 


000001 




074546 


010600 





01-FEB-84 17:02 



25$; 



(\Vd 






SEQ 225 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


CSCLP1 


MOV 


UNITN.T390SW 


iSET UNIT NUMBER 




MOV 


0T39PK2.R4 


\ SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


j ISSUE WRITE CHARACTERISTICS 




BCS 


50* 


»BR, IF COMMAND ISSUED OK 




MOV 


P0.R1 


iSAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG, SFIMSG 


jWRITE CHARACTERISTIC FAILED 





50$ 



CKLOOP 

MOV 
PRINTX 



T396FR*12,R1 
0T39SFS 



BIT 
BNE 

PRINTX 



OftIT7,Rl 

100$ 

0T390FF 



100$: 



BR 
PRINTX 



110$ 
0T390N 



110$: PRINTX 0T39SBS 



BIT 
BNE 
PRINTX 



OfciIT6,Rl 

120$ 

GT390FF 



120$: 



BR 
PRINTX 



130$ 
OT390N 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
1102 
WRTMSG 
SFIMSG 



jLOOP IF SELECTEO 

TRAP C$CLP1 
iGET XST2 STATUS FROM MESSAGE BUFFER 
j "STATE OF EXTENDED FEATURES SW »" 



iCHECK STATE 
iBR, IF EXT. 
j «• OFF " 



OF E.F.S. 
FEA. SW, IS 



MOV 

MOV 

MO/ 

TRAP 

ADC 

ON 



OTHER 
i' 



MOV 
MOV 
MOV 
TRAP 
ADD 
PRINT STATEMENT 



iSKlP 

i" ON 

MOV 

MOV 

MOV 

TRAP 

ADD 

{"STATE OF BUFFERING SWITCH 

MOV 
MOV 
MOV 
TRAP 
ADD 

{CHECK STATE OF BUFFERING SW 

iBR, IF BUFFERING IS ON 

j" OFF" 

MOV 

MOV 

MOV 

TRAP 

ADD 

I SKIP OTHER PRINT STATEMENT 

;" ON " 

MOV 
MOV 
MOV 



0T39SFS, -CSP) 
♦l.-CSP) 

SP.RO 
C$PNTX 
04. SP 



*T390FF # -CSP) 

•l.-CSP) 

SP.RO 

C$PNiX 

04. SP 



OT390N.-CSP} 

♦l.-(SPl 

SP.RO 

C$PNTX 

04. SP 

0T39SBS.-CSP) 

♦l.-CSP) 

SP.RO 

C$PNTX 

04. SP 



0T390FF.-CSP) 

Ol.-(SP) 

SP.RO 

C$PNTX 

04 .SP 



4T390N, -CSP) 
01. (SP) 
SP.RO 



G2 
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TYPEOUT 






074550 


104415 








074552 


062706 


000004 




6577 


074556 


042701 


177700 


130$: 


6578 


074562 


010137 


077340' 




6579 


074566 










074566 


013746 


077340' 






074572 


012746 


077263' 






074576 


012746 


000002 






0746C2 


010600 








074604 


104415 








074606 


062706 


000006 




65S0 


074612 


004737 


015604' 




6581 


074616 


103405 






6585 


074620 


010001 






6586 


074622 
074622 
074624 
074626 
074630 


104455 
002117 
003646' 

011644* 






6587 


074632 
074632 


104406 




140$; 


6588 


074634 


013737 


002202' 076220' 




6589 


074642 


012704 


076200' 




6590 


074646 


0047!7 


010472* 




6591 


074652 


103405 






6595 


C 74654 


010001 






6596 


074656 
074656 
074660 
074662 
074664 


104456 
002120 
005052' 

011644' 






6597 


074666 
074666 


104406 




150$: 


6598 


074670 


005737 


002226' 




6599 


074674 


001036 






6600 


074676 


112737 


000200 075511' 




6601 


074704 


112737 


OOOOIO 075510' 




6602 


074712 


012704 


075500' 




6603 


074716 


010465 


000000 




6604 


074 722 


00473/ 


016146' 




6605 


074726 


103405 






6606 


074730 


010001 






6610 


0747;<2 
074732 
074734 
074 736 
074/40 


104456 
002121 
076755* 
011656' 






6611 


074742 
074742 


104406 




160$: 


6612 


0747*14 


012704 


076200' 




6613 








i ***** 


6614 










6615 








IwRITE 


6616 










6617 








1 ***** 


6618 










6619 


074750 


004 737 


010472* 





17:02 



8IC 
MOV 
PRINTX 



CKLOOP 



CKLOOP 

TST 

BNE 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



CKLOOP 
MOV 



01777C0.R1 

R1.T39RL 

4T39MCL.T39RL 



jSR 


PC.SOFINIT 


BCS 


140$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



MOV 


UNITN,T39[ iW 


MOV 


♦T39PK2.R4 


JSR 


PC.WRTCHR 


BCS 


150$ 


MOV 


RO.Rt 


ERRHRD 


ERRNO.URTMSG, SFIMSG 



EXTFEA 

174$ 

*200 ( T396S1 

4U0,T396S0 

<>T39PACKET,R4 

R4.TS0BCR5) 

PC.CHKTSSR 

160$ 

R0.R1 

ERRN0,T39NBA,PKTSSR 



T29RL.-CSP) 

<M3*MCL,-(SP) 

02.-CSP) 

SP,RO 

C$PNTX 

06, SP 



C$ERDF 
1103 
SFIERR 
SFIMSG 



SEQ 226 



TRAP CIPNTX 

ADD 04 # SP 

j ONLY LEAVE MICROCODE REV LEVEL 
{LOAD VP REV LEVEL 
{"MICROCODE REVISION LEVEL -OOOXXX" 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 
lUO SOFT TNIT OF CONTROLLER 
I BR IF SOFT INIT • OK 
j SAVE CONTENTS OF TSSR 
iDEVICE FATAL ERROR DURING INIT 

TRAP 

.WORD 

.WORD 

.WORD 
iLOOP IF SELECTED 

TRAP 
j SET UNIT NUMBER 

i SPROUT INE NEEDS PACKET ADDRESS 
} ISSUE WRITE CHARACTERISTICS 
iBR* IF COMMANO ISSUED OK 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC FAILED 

TRAP 

.WORD 

.WORD 
WORD 
{LOOP IF SELECTED 

TRAP 
{CHECK FOR EXTENDED FEATURES SW SWITCH 
iBR IF SWITCH IS ON 
{WRITE MISCELLANEOUS CONT/REAO STATUS 
{FLECTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
iWRITE SUBSY5 MEM PACKET 
jISSLt COMMAND 
{WAIT FOR SSR 
iBR. IF NO ERROR 
{ERROR SAVE TSSR 
{TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 



C$CLP1 



CfERHRD 
1104 
WRTMSG 
SFIMSG 

C$CLP1 



GT39PK2.R4 

********************* 



TRAP C$ERHRD 

.WORD 1105 
.WORD TS^NBA 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

{SUBROUTINE NEEDS PACKET ADDRESS 
******************************* 



CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
*****+*+•****+******♦♦*****************•**************+*******,*** 

JSR PC.WRTCHR {ISSUE WRITE CHARACTERISTICS 
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H2 



SEQ 227 



6620 


074754 


103405 






BCS 


170$ 


6624 


074 756 


010001 






MOV 


R0.R1 


6625 


74760 
074760 
074762 
074 764 
074766 


104456 
002122 
005052 ' 
011644' 






ERRHRD 


ERRNO, WRTMSG, SFIMSG 


6626 


074770 
074770 


104406 




170$: 


CKLOOP 




6627 


074772 


005037 


002202' 


174$: 


CLR 


UNITN 


6628 


074776 


013737 


002202' 076220' 175$: 


MOV 


l*UTN,T39DSW 


6629 


075004 


012704 


076200' 




MOV 


0T39PK2.R4 


6630 


075010 


004737 


010472' 




JSR 


PC.WRTCHR 


6631 


075014 


103405 






BCS 


180$ 


6635 


075016 


010001 






MOV 


R0.R1 


6636 


075020 
075020 
075022 
075024 
0/5026 


104456 
002123 
005052' 
011644' 






ERRHRD 


ERRNO.WRTMSG.SFIMSG 


6637 


075030 
075030 


104406 




160$: 


CKLOOP 




6638 














6639 


075032 


016501 


000002 


190$: 


MOV 


TSSR(R5),R1 


6640 


075036 


032701 


000100 




BIT 


O0FL.R1 


6641 


075042 


001414 






BEQ 


200$ 


6642 


075044 
075044 
075050 
075054 
75060 
07506? 
075064 


013746 
012746 
012746 
010600 
104415 
0627O6 


002202' 
076514' 
000002 

000006 




PRINTX 


OT390F2.UNITN 


6643 


075070 


000137 


075424' 




JMP 


250$ 


6644 


075074 
075074 
075100 
075104 
075110 
075112 
075114 


013746 
012746 
012746 
010600 
104415 
062706 


002202' 
076560' 
000002 

00O006 


200*; 


PRINTX 


GT390N2, UNITN 


6645 


075120 


013701 


075524' 




MOV 


T398FR*6,R1 


6646 


075124 


032701 


000004 




BIT 


06TT2.R1 


6647 


075130 


001013 






BNE 


210$ 


6648 


075132 
075132 
075136 
075142 
075146 
075150 
0/5152 


013746 
012746 
012746 
010600 
104415 
062706 


002202' 
076676' 
000002 

000006 




PRINTX 


0T39WPN.UNITN 


6649 


075156 


000412 






BP 


220$ 


6650 


075160 
075160 
075164 
7 5170 
075174 


013 M6 
012/46 
012 746 
010600 


002202' 
76623' 
000002 


210$: 


PRINTX 


0T39WRT, UNITN 



iBR, IF COMMAND ISSUED 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



j SCOPE LOOP 



OK 

FAILED 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



i SET TO DRIVE 
»SET UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 
I ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMAND ISSUED OK 
I SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
. WORD 
.WORD 



C$ERHRD 
1106 
WRTMSG 
SFIMSG 

C$CLP1 



{LOOP IF SELECTED 



TRAP 



C$ERHRD 
1107 
WRTMSG 
SFIMSG 

C$CLP1 



{GET TSSR STATUS 
i CHECK FOR OFF-LINE 
j BR, IF DRIVE IS ON-LINE 
j "DRIVE NUMBER XX IS OFF-LINE" 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
{DO NCT TRY TO GET ANYMORE INFO 
{"DRIVE NUMBER XX IS ON-LINE" 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
{READ EXTENDED STATUS (XSTO) 
;IS DRIVE wriTE PROTECTED 
jBR, IF WRITE PROTECTED 
{"DRIVE NUMBER IS NOT WRT PRO" 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
{SKIP OVER 

{"DRIVE NUMBER XX IS WRT PRO" 

MOV 
MOV 
MOV 
MOV 



UNITN. CSP) 

0T390F2. -(SP) 

♦2,-CSP) 

SP.RO 

C$PNTX 

06.SP 



UNITN, -CSP) 
0T39ON2. -(SP) 
*2. -CSP) 
SP.RO 
C$PNTX 
06, SP 



UNITN. -f SP) 
*T39WPN, -(SP) 
«2 , - ( SP ) 
SP.RO 
CiPNTX 
d6,SP 



UNITN, -(SP) 
4T39WPT. -(SP) 

o;\ (sp) 

SP.RO 



TSV5 - HARDWARE TESTS MACRO M1113 Ol-FEB-84 17:02 
TEST Hi CONFIGURATION TYPEOUT 



12 



6651 
6652 
6655 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 



6662 
6663 
6664 
6665 
6666 
6670 



6671 

6672 
66 7 
6674 



6675 
6676 



667 7 
66 78 
6679 
6680 



075176 
075200 
075204 
075212 
075220 
075226 
075232 
075236 
075244 
075250 
075254 
075260 
075262 
075262 
075266 
075270 
075274 
075276 
075302 
075304 
075310 
075312 
075316 
075320 
075324 
075326 
075330 
075330 
075332 
075334 
075336 
075340 
075340 
075342 
075350 
075352 
075352 
075356 
075362 
075366 
75370 
075372 
075376 
075400 
075400 
075404 
075410 
073414 
0?54i6 
"20 
075424 
0754*0 
075436 
075440 
075444 
075444 
075450 



013746 
012746 
012746 
010600 
104415 
062706 
000412 

013746 
012746 
012746 
010600 
104415 
062706 
00523 7 
023727 
001402 
000137 

012746 
012746 



222$; 



104415 

062706 000006 

012737 125252 075616 1 220$: 

112737 000000 075511* 

112737 000024 075510' 

01.2704 075500' 

010465 000000 

012737 000144 075474' 

004737 016060' 

016501 C00002 

032701 000200 

001017 

012727 000250 

000000 

013727 002116' 

000000 

005367 177772 

001375 

005367 177756 

001367 

005337 075474' 

001352 

004737 016146' 

103405 

010001 

104456 

002124 

076755' 

011656' 

104406 

023727 075616' 125252 

001013 



MOV 


0125252, T39BFRU00 


MOVB 


00.T39BS1 


MOVB 


024.T39BS0 


MOV 


0T39PACKET.R4 


MOV 


R4.TSDBCR5) 


MOV 


0100. , T39DLY 


J5R 


PC.WAITF 


MOV 


TSSR(R5),R1 


BIT 


0SSR.R1 


BNE 


225$ 


DELAY 


250 



225$ 



DEC 


T39DLY 


BNE 


222* 


J5R 


PCCHKTSSR 


BCS 


230$ 


MOV 


R0.R1 


ERRHRD 


ERRN0,T39N6A,PI<TSSR 



002202' 
076421' 
000002 



000006 



002202' 
076332' 
000002 



230$: CKLOOP 

CMP 
BNE 
PRINTX 



240$: 



BR 
PRINTX 



000006 

002202' 250$: 

002202' 000003 



074776' 

076250' 
000001 



63$; 



T396FR*100, 0125252 

240$ 

0T39ETN. UNITN 



250$ 

0T39ETS, UNITN 



INC 


UNITN 


CMP 


UNITN, 03 


BEQ 


63$ 


JMP 


175$ 


PRINTX 


0T39NFL 



TRAP 
ADD 

I SET 1 LOC TO KNOWN VALUE 

j EXTENDED TAPE STATUS 

jEXTENOED TAPE STATUS 

tWRITE SU6SYS MEM PACKET 

j ISSUE COMMAND 

iSET \JP DELAY ROUTINE 

jWAIT AWHILE FOR SSR TO SET 

jSEE IF IT REALLY DID 

I JUST CHECK THAT BIT 

jBR, IF SSR IS SET 

j DELAY ABOUT ,25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

I START DELAY COUNT DOWN 

jBR, IF COUNTER IS NOT AT DONE 

,WAIT FOR SSR 

iBR, IF NO ERROR 

lERROR. SAVE TSSR 

jTSSR NOT CORRECT AFTER WRT. MI 

TRAP 
.WORD 
.WORD 
.WORD 



SEQ 228 



C$PNTX 
06, SP 



O250,(PC)* 



LIDLf.CPO* 



-6CPC) 

. -4 

-22CPC) 

. -20 



iLOOP IF SELECTED 

jDID LOC GET OVER 
jBR, IF IT DIDN'T 



TRAP 
WRITTEN 
GET ETC. 



, "DRIVE DOESN' T HAVE 



{SKIP OVER 
j "DRIVE HAS 



EXT TAPE S 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



EXT TAPE STATUS" 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



I BUMP DRIVE NUT«ER 
lAT END OF DRIVES tET 
i BR, IF NO MORE DRIVES 
jDO NEXT DRIVE 

j NEW LINE 



S'CELLANEOUS 
C$ERHRD 
1108 
T39N6A 
PKTSSR 

C$CLP1 



TATUS 
UNITN. (SP) 

OT39ETN.-CSP) 
02, (SP) 
SP.RO 

C$PNTX 
06.SP 



LNITN, -CSP) 
OT39ETS, -CSP) 
#i.\-(SP) 
SP.RO 

C$PNTX 
06, SP 



MOV 
MOV 



0T59NH , -CSP) 
OX, -ISP) 



J^ 



TSV5 - HARDUARE 


TESTS MACRO M1113 


TEST 11' 


CONFIGURATION TYPEOUT 




075454 


010600 




075456 


104415 




075460 


062706 000004 


6632 


075464 


000137 000200 


6683 


075470 






075470 


104432 




075472 


001736 


6684 






6685 






6686 






6687 






6688 






6689 






6690 






6691 


075474 


000000 


6693 


075476 




6695 


075500 




6696 


075500 


140006 


6697 


075502 


075510' 


6698 


075504 


000000 


6699 


075506 


000012 


6700 


075510 




6701 


075510 


000 


6702 


075511 


000 


6703 


075512 


000000 


6704 


075514 


000000 


6705 


075516 




6706 






6707 






6 709 


076171 




6711 


076200 




6712 


076200 


140004 


6713 


076202 


076210' 


6714 


076204 


000000 


6715 


076206 


000012 


6716 






6717 






6718 


076210 




6719 


076210 


075516" 


6720 


076212 


00000 


6721 


076214 


000400 


6722 


076216 


000000 


6723 


07^220 


oooooo 


6725 


07t>222 




6727 


076230 


140012 


6728 


076232 


000000 


6729 






6 730 






6731 






6733 


76234 




6735 


076240 


140005 


6756 


0762*2 


OOOOOO 


6737 


076244 


OOOOOO 


6738 


076246 


000400 


6739 






6/40 






6741 







01-FEB-84 17;02 



64$: 



JMP 
EXIT 



200 
TST 



iRETLKN TO SUPERVISOR 
lEXIT THIS SECTION 



MOV 

TRAP 

ADD 



TRAP 
.WORD 



SEQ 229 



SP,RO 
ClPNlX 
44, SP 



CJEXIT 
L10076- 



jLOCAL TEXT MESSAGES FOR TEST 



1 LOCAL 

» - 


STORAGE 


FOR THIS TEST 


T390LY: 


.WORD 







.BLKB 


10-<.-TSV267> 


T39PACKET: 






.WORD 


140OO6 




.WORD 


T39TAD 




.WORD 







.WORD 


10. 


T39TA0: 






T398S0: 


.BYTE 





T396S1: 


.BYTE 





T396S2: 


.WORD 







.WORD 





T39BFR: 


,BLKW 


1^0. 




.BLKB 


10«<.-TSV267> 


T39PK2i 








.WORD 


14f )04 




.WOrtD 


T39DTA 




.WORD 







.WORD 


10. 


T39DTA; 








.WORD 


T39BFR 




.WORD 







.WORD 


256, 


T39EA1; 


.WORD 





T390SW: 


.WORD 







.BLKB 


10-<. -T5V267* 


T39PK3: 


.WORD 


140012 




.WORD 





j WRITE 


TAPE PACKET 


I 


.BLKB 


10-< . TSV2£7> 


T 39PK4 : 


.WORD 


140005 


T39WR: 


.WORD 







.WORD 





T39SI/J 


.WORD 


256. 



j DELAY COUNTER FOR TEST 

iCOMMAND PACKET FOR TEST 

jWRITE SUBSYSTEM MEM, CMQ. ACK.CVC-1 

j ADDRESS OF CHARACTERISTICS BLOCK 

jSTAPTING VALUE OF BLOCK SIZE 
iCHARACTERISTICS DATA BLOCK 
j8SEL0 BYTE 
jBSELl BYTE 
iBSELl WORD 
I DATA 
^MESSAGE BUFFER 



;C0MMAN0 PACKET FOR TEST 

iWRITE CHARA. MEM. CMNO. , ACK.CVC-1 

lADDRESS OF SELECT DATA BLOCK 

tSTARTING VALUE OF BLOCK Sl/E 



j SELECT DATA BLOCK 

l ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

jEAI BIT WORO 

iDRIVE SELECT WOMD ETC 

iMESSAGE BUFFER RELEASE COMMAND 
I NOT USED 



; WRITE. ACK, CVC»1 COMMAND 
{ADDRESS OF WRITE BUFFER 
iMORE ADDRESS OF WRITE BUFFER 
jbIZE OF RECORD 



076250 
076253 
076332 
076421 
076514 
076560 
076623 
C76676 
076755 
077031 

077121 
077173 
077245 
077254 
0772o3 



077342 
07 7344 
077344 
077350 
077354 
077360 
077364 
077366 
07/372 
077374 
07/376 
077400 



6/95 



077402 

07 7430 

077430 
Q77430 



045 
123 
045 
045 
045 
045 
045 
045 
127 
103 

045 
045 
045 
045 
045 



TSV5 - HARDWARE TESTS 
TEST 11; CONFIGURATION 



6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6758 
6759 
6760 
6761 
6762 
6763 
6764 
6 765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
67 76 
6777 
6778 
6779 
6780 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 
6791 
6 792 
679J 
6794 



l<2 



MACRO M1U3 
TYPEOUT 



01-FEB-84 17:02 



} ♦ 



SEQ 230 



116 
164 
116 
116 
116 
116 
116 
116 
122 
157 

116 
116 
101 
101 
116 



000 
141 
045 
045 
045 
045 
045 
045 
111 
156 

045 
045 
040 
040 
045 



077340 000000 



000000 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



075500 
140006 
075510' 

000006 



103 



104401 



157 



156 



{LOCAL TEXT MESSAGES FOR TEST 



T39NFL 
T39NE: 
T39ETS 
T39ETN 
T390F2 
T390N2 
T39WRT 
T39WPN 
T39NBA 
T39SSR 

T39SFS 
T39SBS 
T390FF 
T390N: 
T39MCL 

T39RLj 



ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

EVEN 

WORD 

EVEN 

EVEN 



*N' 

Stood -alone Configuration Typeout Not Executed' 

*N*A Extended Tape Status Avail table. Drive Number *D2 

Extended Tape Status NOT Avai liable, Drive Number 

Drive Number *D2#A Is Off -Line' 



*N*A Extended Tape Status NOT Avai liable, Drive Number *D2' 

*N*A ~ 

*N*A Drive Number *D2tfA Is 

*N*A Drive Number *D2*A Is 

*N*A Drive Number *02¥A Is 

WRITE SUBSYSTEM MEMORY Command Not Accepted' 

Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY 



On-L ine' 

Ur ite Protected' 

NOT Write Protected' 



* *N*A State 
»*N*A State 
»*A OFF' 
'*A ON ' 
•*N*A M7455 





Of Extended Features Switch 
Of Buffering Switch 

Microcode Revision Level 



■*G2 



i LOCAL STORAGE FOR THIS TEST 



T39DAT: .WORD 





T39REST: 




SAVREG 




MOV 


0T39PACKET.R1 


MOV 


0140006, CR1)» 


MOV 


OT39TAD,CRD* 


CLR 


CRD* 


MOV 


06. ,(RD* 


CLR 


CRD* 


CLR 


CRD* 


CLR 


(RD 


RTS 


PC 



{LOGICAL RESPONSE TO QUESTION 

{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK.CVC-1 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

jSIZ^ OF DATA BLOCK IN BYTES 

{CLEAR BSELO AND BSF.Ll 

-.CLEAR SEL2 

; CLEAR DATA AREA 

{RETURN 



{LOCAL TEXT MESSAGES FOR TEST 
{ - 

TST39ID: .ASCIZ 'Configuration Typeout 

.EVEN 
ENDTST 



.SBTTL TEST 12: SCOPE LOOPS 



L 10076: 



TRAP C5ET5T 



TSV5 - HARDWARE TESTS 
TEST 12: SCOPE LOOPS 

6797 

6798 
6799 
6600 
6801 
6802 
6803 
68C4 



6806 
6807 

6808 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 
6817 
6818 
6819 
6820 
6821 
6822 
6823 
6824 
6825 
6826 
6827 
6823 
6829 
6830 
6831 
6832 
6833 
6834 
6835 



L2 



MACRO M1113 01-FEB-84 17:02 



SEQ 231 



6840 

o841 
6842 
6843 
6844 
6845 
6846 
604 7 
6848 
6849 
6850 
6851 
6855 



077432 
077432 
077432 
077432 
077434 
077436 
077442 
077444 
077450 
077454 
077460 
7 7462 
077466 
07747? 

Of/474 
077476 
077476 
077500 
G7/S>02 



THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 
LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7455 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR" OR "LOOP ON TEST (SUBTEST)" FACILITIES DON'T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS CLE, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE. PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE: 



CODE 


1 
2 
3 
4 
5 
6 
7 



8 



SCOPE LOOP 

HELP. PRINT THIS MENU. 
TSBA READ ACCESS 
TSSR READ ACCESS 
INITIALIZE (TSSR WRITE ACCESS) 
TSDB HIGH BYTE WRITE ACCESS 
TSDB LOW BYTE WRITE ACCESS 
TSDB hAINTENANCE-MOOE WORD WRITE ACCESS 
TSDBX (TSSR HIGH BYTE) WRITE ACCESS 
(EXTENDED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 
EXIT (RETURN TO SUPERVISOR) 



FOR SCOPE LOOPS THAT WRITE INTO REGISTERS. THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL, 



104421 
001403 
012700 
000402 
012 700 
004737 
004737 
103402 
000137 

1.03405 
010001 

104455 
002261 
003646 



101025' 

101072' 
016322' 
020320' 

'.00146 

015604' 



1$: 
100$: 



2$: 



BGNTST 

RFLAGS PO 

BEQ 1$ 

MOV OT40NE.RO 

BR 100$ 

MOV 0TST4OID.RO 

JSR PC.TSTSETUP 

JSR PC.CHKMAN 

BCS 2t 

JMP 64$ 

JSR PC.SOFINIT 

BCS 5$ 

MOV R0.R1 

F.RRDF ERRNO . SFIERR , SF IMSG 



T12: 
{GET OPERATOR FLAGS 



TRAP 



C$RFLA 



;BR, IF OK TO RUN 

j "TEST NOT EXECUTED" 

;JUST EXIT IF NOT 

;TEST ID MESSAGE 

;D0 THE COMMON SETUP 

I SEE IF MANUAL INTERVENTION ALLOWED 

{CARRY SET IF INTERVENTION ALLOUED 

jEXIT IF NO MANUAL INTERVENTION 

{DO A SOFT INIT 

{BRANCH IF OK 

{CONTENTS OF TSSR REGISTER 

{REPORT FATAL ERROR 

TRAP C*ERDF 
.WORD 1201 
.WORD SFIERR 



TSV5 - HARnH.aPE TESTS 
TEST 12: SCOPE LOOPS 



M2 



MACRO M1113 01-FE8-84 17:02 



6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 



6866 
6867 
6868 



6869 
6870 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 



6880 
6881 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
T889 
6890 
6891 
6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 



077504 
077506 
077512 
077516 
077522 
077524 
077526 
077532 
077534 
077540 
077542 
077542 
077546 
077552 
0^7554 
077556 
077562 
077566 
077570 
077570 
077574 
077576 
077602 
077610 
077612 
077616 
077624 
077630 
0^7634 
077640 
077644 
077650 
077650 
077654 
077656 
077660 
077664 
077666 
077670 
077672 
077674 
077676 
077700 
077702 
077704 



077706 
077712 
077714 



077716 
077722 
077724 
077726 



011644' 
012700 
012701 
004 737 

0057^0 

001760 
020027 
001015 
005737 
001012 

012746 
012746 
010600 
104417 
062706 
000137 
010004 

012700 
104441 
005037 
032737 
001005 
005237 
052737 
012701 
011137 
012721 
011137 
012711 

012700 

104441 

006304 

000174 

077466' 

077706' 

077716' 

077730' 

077750' 

077774 

100020' 

100040 

100152 



105065 
011500 
000776 



012703 
060503 
011300 
000776 



100164 
000010 
020076 



000007 
002226 



100747 
000001 



000004 
077466 



000340 

100156' 
000100 177560 

100156' 

000100 177560 

000060 

100160' 

100060' 

100162' 

000340 

000000 



077664 



000000 



000002 



5$ 



MOV 


OSCMENU,RO 


MOV 


♦6..R1 


J5R 


PC.GETSEL 


TST 


RO 


BEQ 


2$ 


CMP 


RO.07 


BNE 


3$ 


TST 


EXTFEA 


BNE 


3* 


PRINTF 


OEXFMSG 





JMP 


2$ 


3$: 


MOV 


R0.R4 




SETPR1 


0PRIO7 




CLR 


TTION 




BIT 


OIOO.SOTTICSR 




BNE 


4* 




INC 


TTION 




BIS 


♦100.BOTTICSR 


4$; 


MOV 


*TTIVEC,R1 




MOV 


(R1) # TVECSAV 




MOV 


♦60$. (Rl)* 




MOV 


(Rl).TPRISAV 




MOV 


0PRI07.CR1) 




SETPRI 


*PRIOO 




ASL 


R4 




JMP 


06$(R4) 


6$: 


.WORD 


2$ 




.WORD 


10$ 




.WORD 


15$ 




.WORD 


20$ 




.WORD 


25$ 




.WORD 


? r * 




.WORD 


W 




.WORO 


40$ 




.WORD 


65$ 


10*: 


CLRB 


TSDBCR5) 


12$: 


MOV 


(R5),R0 




BR 


12$ 


15$: 


MOV 


MSSR.R3 




ADD 


R5.R3 


181 1 


MOV 


(R3),R0 




BR 


18$ 



SEQ 232 



.WORD SFIMSG 
MENU OF SCOPE LOOP SELECTIONS 
MAXIMUM ALLOWED SELECTION 
GO GET THE OPERATORS SELECTION 
WAS ZFRO SPECIFIED ? 
REPEAT MENU IF YES. 
EXTENDED TSSR ? 
BRANCH IF NOT 

j CHECK FOR EXTENDED FEATURE r SET 
BR, IF IT IS ON 
WARN OPERATOR EXTENDED FEATURES CLEAR 



MOV 

MOV 

MOV 

TRAP 

ADD 

GO BACK TO fjASIC MENU 

SAVE THE MENU SELECTION 

RAISE THE PRIORITY 

MOV 
TRAP 

ASSUME INTERRUPTS ARE ENABLED 

AP.E TTI INTERRUPTS ON ? 

BRANCH IF YES 

FLAG SET IF INTERRUPTS OFF 

ENABLE INTERRUPTS 

START Of TTI VECTORS 

SAVE THE CUR: "-NT TTI VECTOR 

SET NEU INTERRUPT ROUTINE 

SAVE THE VECTOR PRIORITY 

USE PRIORITY SEVEN 

LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 

CONVERT TO UORD OFFSET 

JUMP TO PROPER LOOP 

RETYPE THE MENU 

TSBA READ ACCESS 

TSSR READ ACCESS 

TSSR WRITE ACCESS 

TSDB HIGH 8YTL WRITE ACCESS 

TSDB LOW BYTE WRITE ACCESS 

TSDB MAINTENANCE MODE 

TSDBX WRITE ACCESS 

LEAVE THE TEST 



i ENTER MAINTENANCE MODE 
{READ TSBA REGISTER 
-.LOOP UNTIL HALTED 



ADDRESS OF TSSR REGISTER 
POINT TO TSVOVS REGISTERS 
READ TSSR REGISTER 
{LOOP UNTIL STOPPED 



OEXFMSG.-CSP) 

#1.-(SP) 

SP,RO 

C5PNTF 

04.SP 



SPRI07.RO 
C$SPRI 



4PRI00.R0 
C$SPRI 



TSV5 - HAROWARE TESTS 
TEST 12: SCOPE LOOPS 



MACRO M1113 Ol-FEB-84 17:02 



N2 



SEQ 233 



6903 


077730 


00473/ 


020014* 


20$: 


JSR 


PC.GETPAT 


6904 


077734 


010001 






MOV 


R0.R1 


6905 


077736 


012703 


000002 




MOV 


4TSSR.R3 


6906 


077742 


060503 






ADO 


R5.R3 


6907 


077 744 


010113 




22$: 


MOV 


R1.CR3) 


6908 


077746 


000776 






BR 


22$ 


6909 














6910 














6911 


077750 


105065 


000000 


25$: 


CLRB 


TS0BCR5) 


6912 


077754 


004 737 


020014' 




JSR 


PC.GETPAT 


6913 


077760 


010001 






MOV 


R0.R1 


6914 


077762 


012 703 


000001 




MOV 


<TSDBH,R3 


6915 


077766 


060503 






ADD 


Rt R3 


6916 


077770 


110113 




27$: 


MOVB 


Rl.'?3) 


6917 


07777* 


000776 






BR 


27$ 


6918 














6919 














6920 


077774 


105065 


000000 


30$: 


CLRB 


TSDf CR5) 


6921 


1000O0 


004737 


020014' 




JSR 


PC.'iETPAT 


6922 


100004 


010001 






MOV 


R0 V R1 


6923 


100006 


012703 


000000 




MOV 


4TSDB.R3 


6924 


100012 


060503 






ADD 


R5.R3 


6925 


100014 


110113 




32$: 


MOVB 


R1.CR3) 


6926 


100016 


000776 






BR 


32$ 


6927 














6928 


100020 


004737 


020014' 


35$: 


JSR 


PC.GETPAT 


6929 


100024 


010001 






MOV 


R0.R1 


6930 


100026 


012703 


000000 




MOV 


OTSDB.R? 


6931 


100032 


060503 






ADD 


R5.R3 


6932 


100034 


010113 




37$: 


MOV 


R1.CR3) 


6933 














6934 


100036 


000776 






BR 


37$ 


6935 














6936 


100040 


004737 


020014' 


40$: 


JSR 


PC.GETPAT 


6937 


100044 


010001 






MOV 


R0.R1 


6938 


100046 


012703 


U00003 




MOV 


4TSSRH.R3 


6939 


100051: 


060503 






ADO 


R5.R3 


6940 


100054 


110113 




42$: 


MOVB 


R1.CR3) 


6941 


100056 


000776 






BR 


42$ 


6942 














6943 














6944 








j ♦ 






6945 








; PROCESS CONSOLE INTERRUPTS 


6946 








, . 






6S47 








i 






6948 


100060 


010C46 




60$: 


MOV 


RC. (SP) 


69*49 


100062 


113700 


17756.' 




MOVB 


a#TTIBFR,R0 


6950 


100066 


042 700 


000200 




BIC 


$200, RO 


6951 


100072 


122700 


000015 




CHPB 


015.R0 


6952 


100076 


001021 






BNF 


61$ 


6953 


100100 


012766 


077466' 


000002 


MOV 


02$,?(SP) 


6954 


100106 


005066 


000004 




Cl.R 


4CSP) 


6955 


100112 


013737 


r oo 160' 


000060 


MOV 


TVECSAV.SOTTIVEC 


6956 


100120 


013737 


100162' 


000062 


MOV 


TPRISAV.SOTTIVEC+2 


6957 


100126 


005737 


100156' 




TST 


TTION 


695f 


100132 


001403 






BEQ 


61$ 


6959 


100134 


042737 


000100 


177560 


BIC 


OlOO.aftTTICSR 



j READ THE DATA PATTERN 

{DATA PATTERN FOR LOO^ 

i ADDRESS OF TSSR 

j POINT TO TSV05'S REGISTERS 

{WRITE DATA TO TSSR 

j LOOP 



iENIER MAINTENANCE MODE 
j READ THE DATA PATTERN 
j DATA PATTERN FOR LOOP 
{ADDRESS OF HIGH BYTE OF TSDB 
{POINT TO TSV05'S REGISTERS 
{WRITE THE DATA TO TSDB. HIGH BYTE 
{LOOP UNTIL STOPPED 



{ENTER MAINTENANCE MODE 

{READ THE DATA PATTERN 

{DATA PATTERN FOR I OOP 

{ADDRESS OF TSSR 

{POINT TO TSVOS'S REGISTERS 

{WRITE DATA TO TSSR. LOW BYTE 

jLOOP UNTIL HALTED BY OPERATOR 

{READ THE DATA PATTERN 
{DATA PATTERN FOR LOOP 
{SELECT TSDB 

{POINT TO TSV05'S REGISTERS 
{WRITE THE DATA PATTERN 

{LOOP UNTIL HALTED 

><EAD THE DATA PATTERN 
SAVE THE DATA PATTERN 
BYTE ADDRESS OF TSSR f HIGH BYTE 
POINT TO TSv05*S REGISTERS 
WRITE THE DATA fO REGISTER 
j LOOP UNTIL HALTED 



{SAVE WORK REGISTER 

{GET THE OPERATOR INPUT 

{STRIP OFF PARITY BIT 

{IS IT A CARRIAGE RETURN ? 

:JUST EXIT IF NOT 

{RETURN TO MASTER MENU 

{FORCE PRIORITY ZERO 

{RESTORE SUPERVISOR VECTOR 

{RESTORE SUPERVISOR PRIORIO 

jARE SUPERVISOR INTERRUPTS ENABLED ? 

{BRANCH IF YES 

{TURN OFF TTI INTERRUPTS 



TSV5 
TEST 



HARDWARE TESTS MACRO M1113 01-FEB-84 I7t02 



B3 



SCOPE LOOPS 



S£Q 234 



6960 
6961 
6962 
6963 
6964 



6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 
6973 
6974 
6975 
6976 
6977 
6978 
6979 
6980 
6981 
6982 
6983 
6984 
6985 
6986 
6987 
6088 
6989 
6990 
6991 
6992 
6993 
6994 
6995 
6996 
6997 
6998 
6999 
7000 
7001 



7002 
7QQ3 



100142 
100144 

100146 
100146 
100146 
100150 
100152 



100156 
100160 
100162 



100164 
100200 



100216 
100271 
100317 
100343 
100367 
100431 
100470 
100526 
100574 
130643 
1 30/06 
1X>707 
10074/ 
101025 
101072 

101106 
101106 
101106 
lOiiiO 



012600 
000002 



104432 
000736 
000137 000200 



OOOOOO 
OOOOOO 
OOOOOO 



100216 1 
100470* 



012 
012 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 

on 

000 
124 
045 

123 
123 



104401 



100271 
100526 



123 
Oil 
061 
062 
C63 
064 
065 
066 
067 
070 

171 
116 
164 

143 



100317 
100574 



105 
060 
Oil 
Oil 
Oil 
oil 

on 
on 
on 
on 



160 
045 
141 

157 



61$ j MOV 

RTI 



(SP)*,RO 



64 It 

63$: EXIT TST 



651} 



J * 



JMP 



200 



jRESTORE REGISTER 

I RETURN FROM INTERUPT 



jEXIT THE TEST 



l RETURN TO SUPERVISOR 



TRAP CIEXIT 
.WORD L10077-, 



I LOCAL STORAGE FOR THIS TEST 



TTIONi 

TVECSAVj 

TPRISAV: 



I ♦ 



.WORD 
.WORD 
.WORD 



I WORD SET IF SUPERVISOR TTI INTER OFF 
iSAVE TTI VECTOR 
I SAVE TTI PRIORITY 



j MENU FOR OPERATOR 
I - 



INPUT FOR SCOPE LOOPS 



SCMENUi 



II 
*»$ 

31 
41 
51 

61 

7$ 

81 

91 

101 

111 

121 

EXFMSGj 

T40NE: 

TST40ID: 



.EVEN 
.WORD 
.WORD 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 
ENOTST 



11,21,31,41,51.61 

71,81.91, 101.111,121.0 

<12>* SELECT SCOPE LOOP FROM FOLLOWING OPTIONS;* 

<12>* Ditpltv This Menu' 

1 TSBA Reed Access' 

2 TSSR Reed Access' 

3 Initi«l»x« (TSSR Writ* Access)' 

4 TSD6 High Byte Writ* Access' 

5 TS06 Low Byt« Writ* Access* 

6 TSOB Maintenance Mod* Writ* Access 1 

7 TSDBX (TSSR High Byt*j Writ* Access' 

8 Return to Diagnostic Supervisor' 

Type RETURN T Stop Scope Loops' 

«N*A ♦♦♦ E*tended Features Switch Not On *♦* ' 

standalone Scope Loop* Not EKtcuted' 
ASCIZ 'Scope Loop*' 



L10O77; 



ENOMQD 



TRAP 



CIETST 



TSV6 PARAMETER 
TEST 12 j SCOPE LO 



COOING MACRO MU13 Ol-FEB-84 17?02 



C3 



SEQ 235 



1 
7 

12 
18 

i9 

20 
21 

a? 

23 
24 

25 
26 
27 
28 
29 
30 
31 
32 



33 
34 



35 



36 
37 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



54 
55 



101110 
101110 



lvUUO 
101110 

101112 

101112 
101112 
101114 
101116 
101120 
101122 
101122 
101124 
101126 
101130 

101132 

101132 
10U32 
101166 
101212 



101242 
101242 
101244 

101244 
104244 



TSV6: 



.TITLE TSV6 - PARAMETER CODING 



BGNMOD TSV6 



.SBTTL HARDWARE PARAMETER COOING SECTION 



000010 



000031 

101132' 

160010 

177776 

001031 
101166' 
000000 
000776 



104 

111 
111 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SL*>ERVISO« TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 

BGNHRO 

.WORD L10100-LIHARD/2 



105 
116 
116 



L SHARD $ : 

GPRMA MPMI.0,0, 160010, 177776, YES 

.WORD TICOOE 

.WORD HPM1 

.WORD TILOLIM 

.WORD TIHILIM 

GPRMA HPM2. 2,0 ,0,776, YES 

.WORD TICOOE 

.WORD HPM2 

.WORD TILOLIM 

.WORD TIHILIM 

iGPRMO HPM3,4,0. 340,0,7, YES 

ENDHRD 

.EVEN 
LlOlOOt 

126 HPMli .ASCIZ 'DEVICE ADDRESS (TSBA/TSD8) ' 

124 HPM2: .ASCIZ 'INTERRUPT VECTOR 

124 HPM3j .ASCIZ 'INTERRUPT PRIORITY 

.EVEN 

.SBTTL SOFTWARE PARAMETER CODING SECTION 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO GUILD P* TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



I GET TSBA/TSDB REGISTER ADDRESS 



jGET VECTOR ADDRESS. 



iGET INTERRUPT PRIORITY. 



000003 



001130 





BGNSFT 










.WORD 


L10101 


-LISOFT/2 


LISOFTi 


« 








J 


GPRML 


SPM1 


.0, 


-l.TES 




GPRML 


SPM4 


.2, 


•l»YES 




.WORD 


TIOJDE 





l GET TRANSPORT TEST FLAG. 
i GET ITERATION CONTROL. 



^^R^^^I^Era^^ieT^ 1 ^ 01 - FE8 - 8 * 17 < 02 



D3 



SEQ 236 



101246 
101250 
S6 

56 101252 

101252 
59 

60 

61 101252 

62 101302 
63 

64 
65 
66 
67 

6<J 

69 

70 

71 

72 

73 

74 101332 

75 

76 

77 101332 

78 

79 

60 

81 

82 101334 

101334 
101336 
101340 

83 101540 
84 

85 
86 
87 

88 101340 

89 101340 
101340 
101342 
101344 

90 101344 

91 101346 

92 101350 

93 101352 
101352 

94 101352 
95 

9fc 



101302 
177777 



105 
111 



116 
116 



101 
110 



OOOOOO 
000000 



000000 
000003 

172522 
000224 

000240 



000001 



i 
\ 

U10101 



SPM1: 

SPM4: 

tSPM6: 

iSPM7: 



.WORD 

.WORD 

GPRMD 

GPRMO 

ENOSFT 

.EVEN 



t :\SCU 

.ASCIZ 
.ASCI/ 
.ASCIZ 
.SBTTL 



SPM4 

-1 

SPM6,4,D, 7777,0, 7777, YES 

SPM7, 6,0,7777, 0,7777, YES 



I GET LOCAL ERROR LIMIT 
j GET GLOBAL ERROR LIMIT 



'ENABLE TRANSPORT TESTS 
•INHIBIT ITERATIONS 
•PER TEST ERROR LIMIT 
'PER UNIT ERROR LIMIT 
PATCH AREA 



I FINALLY A GENEROUS PATCH AREA, 

t 

, AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK 

i DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 

i 



PATCH: 



L*LAST 



t ♦ ♦ 
J 
i - - 



L 10102: 



L10104: 



.BLKW 
.BLKW 



32. 
1. 



iSLT LAST USED ADDRESS. 



.IF NZ..6377 
.».!377»1 

.ENOC 
LASTAD 
.EVEN 
.WORD 
.WORD 

ENOMOO 

.SBTTL HARD CODED P TABLE 

DIAGNOSTIC IS PRE PARAMETERIZED PER THIS TABLE 

BGNSETUP 1 

BGNPTAB 

.WORD 

.WORD L10104-./2-1 



.WORD 
.WORD 
.WORD 
ENDPTAB 

END SETUP 

.END 



172522 

224 

PRI05 



TSV6 - PARAMETER COOING MACRO M1113 
SYM80L TABLE 



E3 



01-FEB-84 17 5 02 



SEQ 237 



AOD5SR 

ADR 

AMBTSS 

ASSEMB- 

A1716 - 

BADDAT 

BADSSR 

BOVPCR- 

BENBSW 

BIE 

BITO 

BITOO 

BITOl 

BIT02 

BIT03 

BIT04 

BIT05 

8IT06 

BIT07 

BIT08 

BIT09 

BIT1 

BITIO 

BIT11 

BIT12 

BIT13 

BIT14 

BIT15 

BIT2 

BIT3 

BIT4 

BITS 

BIT6 

BIT7 

BiT8 

BIT9 

BOE 

BRINIT 

BSELO 

BSEL1 

CHKA^ 

CHKMAN 

CHKTSS 

CKDROP 

CKEMAX 

CKMSG 

CKM5G2 

CKRAM 

CKRAM2 

CMOPKT 

CMPMEM 

CONFIG 

COLNT 

CSRADO 

CTA6 

CTABE 

CTABtt 



0U736RG 

000020 G 

00644 7R 

000010 

0OO003 

0O3156RG 

015510RG 

177520 G 

002230RG 

040000 

000001 

000001 

000002 

000004 

000010 

000020 

000040 G 

000100 G 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 G 

000004 G 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000400 

004453R 

OOOOOO 

0OOOO1 

015654R 

02032ORG 

016146R 

017014R 

016714R 

011170RG 

011310RG 

010724RG 

011034RG 

02101 ORG 

017500R 

017062R 

002310RG 

002206RG 

003164RG 

003176RG 

003164RG 



G 
G 
G 
G 
G 
G 



G 
G 
G 
G 
G 
G 
G 
G 
G 



G 
G 
G 
G 
G 
G 
G 
G 



002 
002 



002 
002 

002 



002 



002 
002 
002 
002 
002 
002 
002 
002 
0O2 
002 
002 
002 
002 
002 
002 
002 
002 



CIAU 
CIAUTO 
CIBRK 
CIBSEG 

cibsub 

CICEFG 

CICLCK 

CICLEA 

C5CL0S 

CICLP1 

C$CVEC 

CIDCLN 

CIDOOU 

CIDRPT 

CIDU 

CIEDIT 

CIERDF 

CIERHR 

CIERRO 

CIERSF 

CIERSO 

CIESCA 

CIESEG 

CIESU8 

CIETST 

CIEXIT 

CtUETB 

ClGETW 

CIGMAN 

CIGPHR 

CIGPLO 

CIGPRI 

CIINIT 

CUNLP 

CIMANI 

CIMEf. 

CIMSG 

CI OPEN 

C5PNTB 

CIPNTF 

CIPNTS 

CIPNTX 

CIQIO 

CIRDBU 

CIREFG 

CIRESE 

CIREVI 

CIRFLA 

CIRPT 

CISEFG 

CISPRI 

CISVEC 

CITPRI 

DATA 

DATASC 

DEBUGM 

DEVCNT 



000052 

000061 

000022 

000004 

000002 

000045 

000062 

000012 

000035 

000006 

000036 

000044 

000051 

000024 

000053 

000003 

000055 

000056 

000060 

000054 

000057 

000010 

000005 

00O003 

000001 

000032 

000026 

000027 

00OO43 

000042 

000030 

000O40 

000011 

000020 

000050 

000031 

000023 

000034 

000014 

000017 

000016 

000015 

000377 

000007 

000047 

000033 

000003 

C00021 

000025 

000046 

000041 

000037 

000013 

002312RG 

020052R 

011442R 

002220RG 



DEVDRO 

DEVNRD 

DEVNXR 

DEVONL 

DEVSUM 

DFPTBL 

DIAGMC- 

DICEB - 

OSBINT 

QUAD 12 

DUFLG 

DUMMY 

EF.CON- 

EF.NEU' 

EF.PWR' 

EF.RES' 

EF 4 STA« 

EMAXDU 

EN 

F.NA1NT 

ENVIRN 

EPRTSW 

EPRT1 

EPRT2 

ERCM 

ERRHI 

ERRK 

ERRLO 

ERRNO « 

ERRVEC- 

ERTABE 

ERTABL 

esun 

EVL 

EXBCNT- 

EXFMSG 

EXP8RE 

EXPO 

EXPGOT 

EXPGT2 

EXPMSG 

EXPREC 

EXTA 

EXTENO 

EXTFEA 

EIENO ' 

EILOAU' 

FATERR- 

FATfLG 
FERCM 
FIFEXP 
FIF1MS 

FIF2MS 
002 FILLME 
002 FNOINT 
002 FORCER 
002 FREE 



G 
G 
G 
G 



023146R 

023065R 

023003R 

022733R 

022676R 

002156RG 

OOOOOO 

000001 

016014R 

0O4637R 

OC3112RG 

003062R 

000036 G 

000035 

000034 

000037 

000040 

016611R 

OOOOOO 

01T762R 

020450R 

002200RG 

006172R 

006172R 

011543R 

002236RG 

016570R 

0O2240RG 

002261 

000004 G 

003376R 

0O3176R 

016572R 

000004 G 

000010 

100747R 

015312RG 

0O2232RG 

0O4527R 

004563R 

0O2322RG 

0153O4RG 

005604R 

0O5602R 

002226RG 

002100 

000035 

000060 

002222RG 

011532R 

012000RG 

012052R 

012121R 

017234R 

0O4211R 

002176RG 

003124RG 



002 FREEHI 
002 FRESIZ 
002 FUSI 
002 FIAU 
002 F I AUTO 
002 FIBGN 
FICIEA 
FIDU 
002 FIENO 
0C2 FIHARD 
002 F$HW 
002 FIINIT 
FIJMP 
FIMOO 
FIMSG 
FIPROT 
FIPWR 
002 FIRPT 
FISEG 
002 FISOFT 
002 FISRV 
002 F(S:« 
002 ^ $SU 
002 F I TEST 
002 GODAT 
OOL. GERRMA 
002 GETPAT 
002 GETSEL 
GICNTO 
GIDELM 
002 GIDISP 
002 GIEXCP 
002 GIHILI 
GllCX.r 
GINO 
002 GOOFFS 
002 GIOFSI 
002 GIPRMA 
002 GIPRMD 
002 GIPRML 
002 GIRAOA 
002 G*RAD6 
002 GIRADO 
002 GIRAOL 
002 GIRADO 
GIXFER 
GIYES 
HIADDR 
002 HOE 
002 HPM1 
002 HPM2 
002 HPM3 
002 IBE 
002 IOU 
002 IER 
002 IFAULT 
002 INCERK 



0O313OR 

003126RG 

004113R 

000015 

000020 

000040 

00000 7 

000016 

000041 

000004 

000013 

000006 

000050 

OOOOOO 

000011 

000021 

000017 

ooooi;. 

000003 

000005 

000010 

000002 

000014 

000001 

0O3160RG 

0O2174RG 

02ooi-;r<G 

02OO76RG 

000200 

000372 

000003 

000400 

0OO002 

000001 

OOOOOO 

000400 

000376 

000001 

000002 

OOOOOO 

000140 

OOOOOO 

000040 

0O0120 

000020 

000004 

OOOOIO 

001400 

100000 c 

101132R 

101166R 

101212R 

010000 G 

000040 G 

020000 G 

004252R 

016656R 



002 
002 
002 



002 
002 
002 

002 



002 
002 
002 



002 
002 



IMTCPC 

INTFLA 

INTMAS 

INTR 

INTREC 

INTVEC 

INTX 

INVERT 

IOKCKI 

IOKSTP 

IPRI 

ISR 

IVEC 

IXE 

IIAU 

IIAUTO 

IICLN 

IIDU 

IIHRD 

IIINIT 

II MOO 

IIMSG 

IIPROT 

IIPTAB 

1 1 PUR 

IIRPT 

IISEG 

IISETU 

IISFT 

103RV 

II SUB 

IITST 

JUMP 

KIPARO 

KIPAR1 

KIPAR2 

KIPAR3 

KIPAR4 

KIPAR5 

KIPAR6 

KIPAR7 

KIPDRO 

KIP0R1 

KIPDR2 

KIPDR3 

KIPDR4 

KIP0R5 

KIPDR6 

KIPDR7 

KTENAB 

KTFLG 

KTINIT 

KTOFF 

KTON 

LERRMA 

LERRNO 

LISTAL 



015760R 

015755R 

015754R 

016026RG 

002224RG 

015756R 

004274R 

02O734RG 

OC0200 

000001 

002212RG 

0OC1OO G 

002210RG 

004000 G 

000041 

0OOO41 

000041 

000041 

000041 

000041 

000041 

000041 

000040 

000041 

000041 

0OO041 

000041 

000041 

000041 

000041 

000041 

000041 

000167 

172540 

172342 

172344 

172346 

172350 

172352 

172354 

172356 

172300 

172302 

172304 

172306 

172310 

172*12 

172314 

172316 

003134RG 

003132RG 

020536R 

0171O6R 

017070R 

002172RG 

OOOOOO 

00000 J. 



002 
002 
002 
00? 
002 
002 
002 
002 



002 
002 



002 
002 
002 
002 
002 
002 



T5V6 - PARAMETER 
SYMBOL TABLE 



CODING MACRO M1113 01-FEB-84 17 5 02 



F3 



SEQ 238 



LOE 

LOOPCN 

LOOPCO 

LOOPFL 

LOT 

L$ACP 

LIAPT 

l;au 

LIAUT 

LIAUTC 

LSCCP 

LICLEA 

LICO 

LIDEPO 

LSDESC 

LIDESP 

LIDEVP 

LIDISP 

LIDLY 

LIDTP 

LIDTYP 

LiDU 

LIDUT 

L*DVTY 

LIEF 

LJENVI 

L$ETP 

LIEXP1 

LIEXP4 

L*EXP5 

L$HARO 

LIHIME 

LIHPCP 

LIHPTP 

L$HW 

L$ICP 

LIINIT 

LILADP 

LILAST 

LILOAD 

LILUN 

LiMREV 

LI NAME 

LIPRIO 

LIPROT 

LIPRT 

LI REPP 

LIREV 

LIRPT 

LISOFT 

LISPC 

LISPCP 

LISPTP 

LISTA 

LISU 

LITEST 

UT1ML 



040000 G 

0022 16RG 

012736R 

003162RG 

000010 G 

002U0RG 

002036RG 

022122RG 

002070RG 

022326RG 

002106RG 

022406RG 

002032RG 

00201 1RG 

0034 10RC 

OO2076RG 

00206 ORG 

002124RG 

002116RG 

00204 ORG 

0020 34RG 

022220RG 

0020 72RG 

003402RG 

0O2052RG 

002044RG 

002102RG 

002046RG 

002064RG 

002066RG 

101112RG 

002120RG 
0020?6RG 
0020.:2RG 
002156RG 
002104RG 
021326RG 
002026RG 
10134 ORG 
002100RG 
002074RG 
002050RG 
002000RG 
00204 2RG 
021316RG 
002112RG 
002062RG 
002010RG 
022434RG 
101244RG 
002056RG 
002020RG 
002024RG 
0O2030RG 
002166RG 
002114RG 
002014RG 



LIUNIT 
002 L 10000 
002 L 10001 
002 L 10002 

L10003 
002 L 10004 
002 L 10005 
002 L 10006 
002 L10007 
0O2 L10010 
002 L10011 
002 L10012 
002 L10013 
002 L10014 
002 L10015 
002 L10016 
002 L10017 
002 I 10020 
002 L10021 
002 LI 0022 
002 L 10023 
002 L 10024 
0O2 L 10025 
002 L 10026 
002 L10030 
002 L10031 
002 L 10032 
002 L 10033 
002 L10034 
002 L10035 
002 L 10036 
002 L 10037 
002 L10040 
002 L10041 
002 L10042 
002 L10043 
002 L 10044 
002 L10045 
002 L10046 
002 L10047 
002 L 10050 
0O2 L10051 
002 L 10052 
0O2 L 10053 
002 L 10054 
0O2 L 10055 
002 L 10056 
002 L1005? 
002 L10C60 
0O2 L10061 
002 L 10062 
002 L 10063 
002 L 10064 
002 L 10065 
002 L 10066 
0O2 L 10067 
002 L10070 



002012RG 

002164R 

O02176R 

005600R 

011654R 

011672R 

011710R 

011716R 

011734R 

011752R 

011776R 

012050R 

012220R 

012734R 

013562R 

013604R 

015310R 

015316R 

015324R 

015336R 

015360R 

0154 06R 

015546R 

016056R 

022052R 

0222 16R 

022324R 

022404R 

0224 32R 

022674R 

024204R 

026176R 

024460r 

024724k 

031522R 

026552R 

027042R 

02734 OR 

027722R 

034312R 

032056R 

032450R 

033056R 

040114R 

035376R 

036330R 

050226R 

040420R 

041630R 

043170R 

043546R 

045020R 

046064R 

051506R 

062334R 

053512R 

055000R 



002 L10071 
002 L10072 
002 L10073 
002 L10074 
002 L 10075 
002 L 10076 
002 L10077 
002 L10100 
002 L10101 
002 L10102 
002 L 10104 
002 MEMADO 
C02 MC/.CK 
002 MENASC 
002 MENERR 
002 MENRES 
002 MIMENU 
002 MhPO - 
002 MMVEC • 
002 MSA.FR- 
002 MSA. NO- 
002 MSA.NR- 
002 MSA.VO- 
002 MSGEXP 
002 MSGLOO 
002 MSGSTA 
002 MSGSIH 
002 MS. ATT- 
002 MS.KXT- 
002 MS.RSD- 
002 MS,RSF» 
002 MS,RST- 
002 NBA 
002 NEWPAS 
002 NOOEV 

002 Noexr 

002 NOINI 
002 NOINTR 
002 NOIfS 
002 NOMAN 
002 NOMEM 
002 NP.IR • 
002 NP.LCO- 
002 NP.OUY- 
002 NP.WRP' 
002 NSI 
002 NSINIT 
002 NUL 
002 NULCR 
002 NXM 
002 NXMFLG 
002 NXMHI 
002 NXMLO 
002 NXMTST 
002 NXR 
002 NXRERR 
002 NXRX 



056250R 

057514R 

066414R 

064544R 

074256R 

07743OR 

101106R 

101132R 

101252R 

101344R 

101352R 

013564RG 

021026RG 

020267R 

020214R 

020316R 

073142R 

170200 

000250 

000006 

000000 

000004 

000002 

011754RG 

012674RG 

012160RG 

013552RG 

000C06 

000200 

OOOOOl 

00002C 

000010 

002000 

021560R 

OO. r 114RG 

027716R 

0O4331R 

004215R 

00/1170RG 

020354R 

005AS4R 

00O2O0 

000040 

000100 

C00020 

0O4146P 

004403R 

004523R 

004524IR 

004000 

0031 26RG 

OC3142RG 

003140RG 

021222R 

003734R 

C05550RG 

003773R 



002 NXTU 
002 OFL 
002 ONEFIL 
002 OIAPTS 
002 OIAU 
002 OIBGNR 
002 0$BGNS 
002 0*0U 
002 OIERRT 
002 OIGNSW 
002 OIPOIN 
002 OISETU 
002 PASRPT 
002 PATCH 
002 PATDAT 
002 PC, ERA 
002 PC.IER 
PC.NOO 
PC.REL 
PC.REW 
PKBCNT 
PKHI 
PKLOW 
002 PKTADO 
002 PKTFRM 
002 PKTGET 
002 PKTMES 
PKl.JAM 
PKTSSR 
PNT 

PRAMPK 
PRASC 
PRBEXP 
002 PRBMSG 
002 PRBREC 
002 PRBTOT 
002 PRBYTE 
002 PR I 
002 PR I ADD 
002 PRIAO 
002 PRIBXO 
PRIEQU 
PRIPKT 
PRIRAM 
PRITAO 
002 PRITSS 
002 PRITO 
002 PRIT1 
002 PRIXOR 

PRIOO 
002 PRI01 
002 PRI02 
002 PRI03 
002 PR I 04 
002 PRI05 
002 PRI06 
002 PRI07 



021572R 

000100 

000000 

000000 

OOOOOl 

OOOOOl 

OOOOOl 

OOOOOl 

000000 

OOOOOl 

OOOOOl 

000000 

021624R 

101332RG 

020050R 

002400 

002000 

001000 

000000 

000400 

000006 

000004 

000O02 

007366R 

O07330R 

011674RG 

011720RG 

004741RG 

011656RG 

001000 G 

013606R 

014333R 

0153OOR 

015146R 

015302R 

015233R 

014 732RG 

002000 G 

O07772R 

010042R 

007424RG 

007672R 

007202RG 

007700R 

010106R 

005636R 

010170R 

010233R 

007554RG 

000000 G 

000040 

000100 

000140 

000200 

000240 

000300 

000340 



002 PRMESS 
PRMNO 
PRMSGE 
PRMSGO 
PRMSG1 
PRMSG2 
PROASC 
PR1ASC 
PST32W 
PIMIT 
PW.011 
PW.013 
002 PW.D22 
002 PW.NOP 
002 PW.N01 
PW.RDE 
PW.RDR 
PW.ROS 
PW.RFI 
PW.WCT 
PU.WFI 
PW.WFM 
PW.WMI 
002 PW.WNP 
002 PW.WTR 
002 P.ACK 
002 P.CMO 
002 P.CONT 
002 P.CVC 
P.FMT 
002 P. FORM 
002 P. GETS 
002 P. IE 
002 P.INIT 
C02 P. MODE 
002 P.OPP 
002 P.POSI 
P. READ 
002 P.SWB 
002 P. WRIT 
002 P.WRTC 
002 P.WRTS 
002 QVP 
002 RAMASC 
002 RAMOAT 
002 RAMERR 
002 RAMEXP 
002 RAMFOR 
002 RAMSIZ 
RAMTAD 
RCVHIA 
RCVLOA 
ROERR 
RECMSG 
REJV 
REG5AV 
RETERR 



014052R 

002320RG 

014362RG 

014542R 

014607R 

014645R 

014230R 

014275R 

003152RG 

022054R 

000021 

000022 

000020 

000000 

000023 

000024 

OOOOOl 

000005 

000O03 

000006 

000004 

000007 

000010 

000011 

00</.02 

100000 

000037 

000012 

040000 

000140 

000011 

000017 

000200 

000013 

007400 

020000 

0OOO10 

OOOOOl 

010000 

000005 

000004 

000006 

002204RG 

013766R 

002242RG 

015320RG 

01534 ORG 

007730R 

002302RG 

015326RG 

002304RG 

002306RG 

0O5202R 

002466RG 

002234RG 

017760R 

005366R 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



0O2 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



TSV6 - PARAMETER CODING MACRO MU13 
SYMBOL TABLE 



G3 



Ol-FEB-84 17?02 



UITCH) 



REWINO 

RMCH6E- 

RMCHEN- 

RMMSG8 

RMMSGE' 

RMPKTB 

RMPKTE 

RMR 

RWPACK 

SC 

SCE 

SCHERR 

SCME 

SCMENU 

SDELAY 

SELASC 

SELDAT 

SEL2 

SETMA^ 

SETU 

SFFMSG 

SFHERR 

SFIERR 

SFIMSG 

5FPTBL 

SIFLAG 

SIMSG 

SKIPT 

SOFINI 

SPACE 

SPM1 

SPH4 

SRO 

SRI 

SK2 

SR3 

SSR 

STATCO 

SVCGBL 

SVCINS 

SVCSUB 

SVCTAG 

SVCTST 

SILSYM 

SO.IDB 

SO.IFB 

SO.IFP 

50.ILD 

SO. ION 

SO.IRD 

SO.IRW 

SO. ISP 

SLICE 



SI 
SI 
SI 

Si 



IEO 
IFM 

I HE 
IID 



010624RG 

000.167 

000200 

000215 

000234 

000201 

000210 

010000 

G10720R 

100000 

020000 

005274R 

005007a 

100164R 

0104701 

020262R 

000004 

000002 

017130R 

021656R 

011712RG 

0O3701R 

003646R 

011644RG 

002166RG 

003154RG 

011576R 

00 54 OCR 

015604RG 

010300RG 

101252R 

101302R 

177572 

177574 

177576 

172516 

000200 

012222R 

000000 

000000 

000001 

000000 

OOOOOl 

010000 

000010 

000002 

OOOOOl 

000020 

000040 

000100 

000004 

000200 

002000 

010000 

001000 

000400 

004000 



002 



002 



002 
002 
002 
002 
002 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 



S1.I1R* 

S1.I2R- 

Sl.PAR- 

S2.ATI- 

S2.BTI- 

S2.DIM- 

S2.ILW- 

S2.INR- 

S2.0UT- 

S2.UN0- 

TBLENO- 

TCOASC 

TCOCOO 

TEMPI 

TEMP2 

TERCLS- 

TESTNO- 

TEXASC 

TFCASC 

TIMEXP 

\ IMSGO 

TINERR 

TMP8FR 

TNAM 

TPRISA 

TPSAV2 

TRANST 

TSBA - 

TSBAH • 

TSDB ■ 

TS06H - 

TSFCOO 

TSREJ - 

TSSOEF 

TSSR - 

TSSRBI 

TSSRFO 

TSSRH • 

TSSX 

TSTBLK 

TSTCNT 

TSTENO 

TSTFLA 

TSTLOO 

TSTPTR 

TSTSET 

TST12I 

TST13I 

TST14I 

TST15I 

TST16I 

TSri'.'I 

TST18I 

TST19I 

TST20I 

TST39I 

TST40I 



020000 

040000 

100000 

000010 

000004 

000200 

000100 

000020 

000040 

000003 

003062RG 

006310R 

006510R 

003116RG 

003120RG 

000016 

000014 

006247R 

006351R 

015362RG 

015410R 

011631R 

002632RG 

016516R 

100162R 

071210R 

002166RG 

000000 G 

000001 G 

000000 G 

000001 G 
OO705OR 
000006 
0O6420R 

000002 G 
003476RG 
006227R 

000003 G 
0O40.V4R 
002?52RG 
002214RG 
016532R 
002314RG 
016270RG 
002316RG 
016322RG 
03020OR 
023662R 
026021R 
034163R 
036372R 
046346R 
050736R 
057/22R 
064 722R 
07 7402R 
101072R 



002 
002 
002 
002 
002 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 

002 

002 
002 

002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



TSV2 

TSV3 

TSV4 

TSV5 

TSV6 

TTI8FR 

TTICSR 

TTION 

TTI0N2 

TTIVEC 

TVECSA 

TVSAV2 

T$ARGC 

T I CODE 

TIERRN 

TIEXCP 

TIFLAG 

TIFREE 

TIGMAN 

TIHILI 

TILAST 

TILOLI 

TILSVM 

TILTNO 

TINEST 

TINSO 

TINS1 

TINS2 

T*NS3 

TIPCNT 

TIPTAB 

TIPTHV 

TIPTNU 

T$SAVL 

T$SEGL 

TISEKO 

TISIZE 

TISUBN 

TITAGL 

T$TAGN 

TITEMP 

T$TEST 

TITSTM 

TITSTS 

T$$AU 

T$$AUT 

TMCLF 

1 5JDAT 

TltDU 

TMHAR 

TIIHW 

TtllNI 

TIIMSG 

T$$PC 

THPRO 

TUPTA 

TURPI 



002000RG 

002176RG 

021316RG 

023216RG 

101110RG 

177562 G 

17^560 G 

100156R 

0712O4R 

000060 G 

100160R 

071206R 

OOOOOl 

001130 

002261 

OOOOOO 

000040 

101352R 

OOOOOO 

000776 

OOOOOl 

OOOOOO 

010000 

000014 

177777 

OOOOOO 

000005 

000002 

000003 

OOOOOO 

010103 

OOOOOl 

OOOOOl 

177777 

177777 

010000 

000005 

OOOOOO 

177777 

010105 

OOOOOO 

000014 

17777 7 

OOOOOl 

010031 

010C33 

010034 

010104 

010032 

010100 

010000 

010C30 

010025 

OOOOOl 

010027 

010103 

010035 



002 TMSEG- 
002 T$*S0F- 
002 T$$SRV« 
002 TMSUB- 
002 TMSW • 

TMTES- 

Tl 
002 T10 
002 Til 

T12 
002 T12BFR 

002 T12BKG 
T12BLK 
T12CHA 
T12CKR 
T12C0N 
T120AT 

002 T120PR 
T12GET 
T12HIA 
T12KT 
TULOA 
T12L00 
T12MSG 
U2NIN 
T12NXM 
T12PAC 
T12PAR 
T12SET 
T12SWR 
T12TBE 
T12WRT 
T121L0 
T122L0 
T123L0 
T124L0 
T124TS 
T13BFR 
T130AT 
T13L00 
T13MEM 
T13NBA 
T13PAC 
T13RES 
T13SSR 
T14BFR 
T14BS0 
T14BS1 
T14BS2 
T140AT 
T14D T A 
T14L00 
T14NBA 
T14NIN 
TUPAC 
T14PK2 
T14RES 



010000 

010101 

010026 

010074 

010001 

010077 

023216RG 

0664 16RG 

074260RG 

077432RG 

030012R 

030467R 

030044R 

031460R 

031240RG 

031046R 

030000R 

030646R 

030226R 

030032R 

03004 OR 

0300 34R 

026226R 

030371R 

030555R 

03073 7R 

027770R 

0300 36R 

031416R 

031350R 

O30176R 

030302R 

026 34 OR 

026674R 

027114R 

027514R 

0300* 2R 

023642R 

0236 30R 

023234R 

023735R 

0237/4R 

023620R 

024136R 

024047R 

024 756R 

024 750* 

024751R 

024 752R 

024 750R 

025370R 

024224R 

025402R 

02564 3R 

024 740R 

025360R 

026066R 



T14RST 
T14SSR 
T14TSB 
T142RE 
T15AM2 
T15AM3 
002 T15AM4 
002 T15BFR 
002 T15BF2 
002 T15BS0 
002 T15BS1 
002 T150AT 
002 T15L00 
002 T15PAC 
002 T15PK2 
002 T15RES 
002 T15RT2 
002 T15SSR 
002 T15S2 
002 T15S3 
002 H6BEN 
002 T16BFR 
002 T16BFS 
002 T16CLR 
002 T 160 AT 
002 T16DT2 
002 T16001 
002 T16D28 
002 T16053 
002 T16078 
002 T16LEN 
002 T16L00 
002 T16PAC 
002 T16PK2 
002 T16REJ 
002 T16RES 
002 T16SEX 
002 T16SR0 
002 T16SSM 
002 T16TSB 
002 T16T01 
002 T16T28 
002 T16T53 
002 T16T78 
002 T16UMI 
002 T162SS 
002 T163SS 
002 T17BEN 
002 T17BFR 
002 T17BFS 
002 T17CLE 
002 T17CLR 
002 T170AT 
002 T170T2 
002 T17EXE 
002 T17EXP 
002 T17EXS 



026124R 
025553R 
025735R 
0254 56R 
033672R 
033773R 
034075R 
033122R 
033610R 
033610R 
033611R 
033110R 
031554R 
0331OOR 
033600R 
034202R 
034254R 
033616R 
033612R 
033614R 
037770R 
037742R 
037762R 
037606R 
037730R 
040010R 
036362R 
036364P 
036366H 
036370R 
0367 12R 
034332R 
037720R 
040000R 
037024R 
037540R 
03770OR 
037632R 
036442R 
0366 10R 
037141R 
037240R 
03734 OR 
037440R 
037652R 
036477R 
036543R 
050102R 
047762R 
050002R 
04 7666R 
047500R 
04/750R 
O50120R 
046244R 
046122R 
046142R 



SEQ 23^ 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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SEQ 240 



T17L00 
T17MSK 
T17PAC 
T 17PK2 
T17R-T 
T17PSF 
T17SET 
T175NP 
T17SRD 
T17SSR 
T17WFD 
T17WFI 
T171CM 
T172CM 
T172SS 
T173CM 
T173SS 
T174CM 
T174SS 
T175CM 
T175SS 
T176CM 
T176SS 
T177CM 
T18BFR 
T18CMP 
T180AT 
T1BDT2 
T18EXP 

TlftLOO 

T18MSK 

T18PAC 

T18PK2 

T18SET 

T18SMI 

T1GSRD 

T18S5R 

T18XS 

T182SS 

T183S5 

T196F.N 

U9BFC 

T19BFR 

T196FS 

T19CLE 

T19CLR 

T19CNV 

T190AT 

T190T2 

T19EXE 

T19EXP 

T19EX5 

U9L00 

T19MSK 

T19PAC 

T19PK2 

T19PRE 



040144R 
046116R 
04 7 74 OR 

050110,r 

047646R 
047544R 
047706R 
04 7566R 
04 7524R 
046365R 
046244R 
047612R 
046705R 
046767R 
046422R 
047063R 
046466R 
047147R 
046533R 
04 7232R 
046576R 
04 7306R 
046642R 
047414R 
051442R 
051143R 
051430H 
051500ft 
050706R 
050246R 
050702R 
051420ft 
051470R 
051310R 
051266R 
051246R 
050775R 
050732R 
051032R 
051076R 
062212R 
057536R 
062072R 
062112R 
061740ft 
061474R 
062004R 
062060ft 
062230R 
057722R 
057602R 
057622R 
051526R 
057576R 
062050ft 
062220R 
057534R 



002 T19RFI 
002 T19RSF 
002 T19RST 
002 T19SET 
002 T19SEX 
002 T19SNP 
002 T19SR0 
002 T19SSR 
002 T19WCT 
002 T19WFI 
002 T19WFM 
002 T19WST 
002 T191CM 
002 T192CM 
002 T192SS 
002 T193CM 
002 T193SS 
002 T194SS 
002 T195CM 
002 T195SS 
002 T196CM 
002 T196SS 
002 T197CM 
002 T197SS 
002 T198CM 
002 T198SS 
002 T199CM 
002 T2 
002 T2.1 
002 T2.2 
002 T206EN 
002 T20BFR 
002 T206FS 
C<02 T20CLE 
002 T20CIR 
002 T20CWP 
002 T200AT 
002 T200T2 
002 T20EXE 
002 T20EXP 
002 T20EXS 
002 T2OL0O 
002 T20MSK 
002 T20PAC 
002 T20RK2 
002 T20RF1 
002 T20RSF 
002 T20SET 
002 T20SEX 
002 T20SRO 
002 T20SSR 
002 T20SWP 
002 T20WFI 
002 T20WFM 
002 T20UMI 
002 T20WNP 
002 T202SS 



061606R 

061540R 

061370R 

061760R 

061722R 

061562R 

061520R 

057763R 

0',1662R 

061626R 

061702R 

061263R 

060420R 

060502R 

060020R 

0605 76R 

060064R 

060131R 

060664R 

060174R 

060740R 

060240ft 

061023R 

060303R 

061111R 

060352R 

061200R 

024206RG 

024224R 

024474R 

0662 72R 

066152R 

066172R 

066054R 

065642R 

065547R 

066140ft 

066310R 

064722R 

064602R 

064622R 

062354R 

064576R 

066130R 

06630OR 

065726R 

065446R 

0660 74 R 

066036R 

06*>666R 

064751R 

065337R 

065746R 

066002R 

066022R 

065706R 

065006R 



002 T203SS 
002 T204SS 
002 T205SS 
002 T206S5 
002 T208SS 
002 T23A 
002 T23B 
002 T3 
002 T3BFLG 
002 T3.1 
002 T3.2 
002 T3.3 
002 T3.4 
002 T38ASC 
002 T38ASN 
002 T38AS0 
002 T38AS1 
002 T38BFR 
002 T388S0 
002 T38BS1 
002 T38BS2 
002 T38CNT 
002 T38DAT 
002 T380LY 
002 T38DSW 
002 T380TA 
002 T38EAI 
002 T38EB 
002 T38I0 
002 T38INT 
002 T38MBP 
002 T38MSG 
002 T38MS1 
002 T38MS2 
002 T38MS3 
002 T38NBA 
002 T38NE 
002 T380FL 
002 T380NL 
002 T38PAC 
002 T38PK2 
002 T38PK3 
002 T38PK4 
002 T38RES 
002 T38SIZ 
002 T38SSR 
002 T38SST 
002 T38TA0 
002 T38WLE 
002 T38WH 
002 T38WRL 
002 T38WRT 
002 T396FR 
002 139650 
002 T396U 
002 TJ9BS2 
002 T390AT 



065052R 

065117R 

065162R 

065226R 

065271R 

C03144RG 

003146RG 

026200RG 

003150RG 

026226R 

026566R 

027056R 

027354R 

074211R 

074230R 

074106R 

074153R 

071236R 

071230R 

071231R 

071232R 

074254R 

073544R 

071212R 

071740ft 

071730ft 

071736R 

071712R 

0731 15R 

072506R 

073604R 

073055R 

072716R 

073011R 

C72055R 

072342R 

0720OOR 

072572R 

072536R 

071220R 

071720R 

071750R 

071770R 

073546R 

071776R 

072416R 

072S26R 

071230R 

072275R 

071772R 

072234R 

072150R 

075516R 

075510R 

075511R 

075512R 

07 7342R 



002 T390LY 
002 T39DSW 
002 T39DTA 
002 T39EAI 
002 T39ETN 
002 T39ETS 
002 T39MCL 
002 T39NBA 
002 T39NE 
002 T39NFL 
002 T390FF 
002 T390F2 
002 T390N 
002 T390N2 
002 T39PAC 
002 T39PK2 
002 T39PK3 
002 T39PK4 
002 T39RES 
002 T39RL 
002 T39SBS 
002 T39SFS 
002 T39SJ.Z 
002 T39SSR 
002 T39TAD 
002 T39WPN 
002 T39WR 
002 T39WRT 
002 T4 
002 T4.1 
002 T4.2 
002 T4.3 
002 T40NE 
002 T5 
002 T5.1 
002 T5,2 
002 T6 
002 T6.1 
002 T6.2 
002 T6.3 
002 T6.4 
002 T6.5 
002 T6.6 
002 T7 
002 T6 
002 T8. 1 
002 T8.2 
002 T8.3 
002 T8.4 
002 T9 
002 T9.1 
002 UAM 
002 UNITN 
002 UNREC - 
002 US I 
002 UIAITF 
002 WC.IFA- 



075474R 

076220R 

076210R 

076216R 

076421R 

076332R 

077263R 

076755R 

076253R 

076250ft 

077245R 

076514R 

077254R 

076560R 

075500R 

07620OR 

07623OR 

076240R 

077344R 

07734 OR 

077173R 

077121R 

076246R 

077031R 

075510ft 

076676R 

076242R 

076623R 

031524RG 

031554R 

032060R 

032452R 

101025R 

034314RG 

034332R 

0354 12R 

040116RG 

040144R 

040434R 

041644R 

043204R 

04 3562R 

045034R 

050230RG 

031510ft * 

051526R 

053526R 

055014R 

056264R 

062336RG 

062354R 

000200 G 

002202RG 

0CXJO6 

004U7R 

016060RG 
000200 



002 UC.IFE 
002 WC.IGO 
002 WC.IRE 
002 WC.IRW 
002 WC.IOT 
002 WC.I1T 
002 UC.I5R 
002 WF.IED 
002 WF.IER 
002 WF.IHI 
002 WF.IRE 
002 WF.IWF 
002 WF.IWR 
002 WF.I3R 
002 WF.I4R 
002 WRTCHR 
002 WRTERR 
002 WftTMSG 
002 WSMBK 
002 XFERAS 
002 XNXM 
002 XORBFO 
002 XORFOR 
002 XSTO 
002 X5T1 
002 XST2 
002 XST3 
002 XST4 
002 XS080T 
002 XSOEOT 
002 XSOIE 
002 XSOILA 
002 XSOILC 
002 XSOLET 
002 XSOHOT 
002 XSONEF 
002 XSOONL 
002 XSOPEO 
002 XSOftLL 
002 XSOftLS 
002 XSOTMK 
002 XSOVCK 
002 XSOULE 
002 XSOWLK 
002 XXCOhM 
002 XIALUA 
002 XIFALS 
002 XIOFFS 
002 XI TRUE 
002 XI t COR 
002 Xl.DLT 

Xl.MBZ 
002 Xl.RBP 

XI. SPA 
002 Xl.UNC 
002 X2.BUF 

X2.EXT 



000002 

000001 

000010 

000004 

000100 

000040 

000020 

000010 

000004 

000200 

000040 

000020 

000100 

000002 

000001 

0104 72RG 

005107R 

005052R 

021020RG 

01555OR 

016206R 

007506R 

007624R 

000006 G 

OOOOIO 

0OO012 

000014 

000016 

OOOCDP 

000001 

000040 

000400 

OOJ.OOO 

020000 

000200 

002000 

000100 

000010 

010000 

040000 

100000 

000020 

0O400O 

000004 

003122RG 

000000 

000040 

000400 

000020 

020000 

100000 

017375 

00O400 

040000 

000002 

000100 

000200 



002 
002 
002 
002 
002 
002 
002 
002 



002 
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Ol-FEB-84 17:02 



X2.0PM- 100000 




X2.RCE* 040000 




X2.Rt.V- 000077 




X2.SPA- 035400 




, ABS. 000000 


000 


000000 


001 


ABS 101352 


002 


ERRORS DETECTED: 






X2.UNI- 000007 

X2.UCF- 002000 

X3.DCK- 000010 

X3,MB2* 000006 



X3.M0E- 177400 

X3.0PI- 000100 

X3.REV- 000040 

X3.RIB- 000001 



VIRTUAL MEMORY USED: 31056 WORDS ( 122 PAGES) 

DYNAMIC MEMORY: 20614 WGRDS ( 79 PAGES) 

ELAPSED TIME: 00:51:47 

CZTSBA.CZTSBA.SEQ/-SP- SVC/ML ♦TSVlB l TSV22B,TSV38,TSV4 t TSV55B # TSV6 



SEQ 241 



X3.SPA- 000200 

X3.TRF- 000020 

X4.HSP- 100000 

X4.MBZ- 017400 



X4.RCH- 040000 
X4.TSM- 020000 
X4.WRO 000377 



TEST 9: READ/WRITE Bl 

TEST 10: MANUAL INTE CI 

TEST 10: MANUAL INTE D? 

TEST 10: MANUAL INTE El 

TEST 10: MANUAL INTE Fl 

TEST 10: MANUAL INTE Gl 

TEST 10: MANUAL INTE HI 

TE-'.T 10: MANUAL INTE II 

TE^T 10: MANUAL INTE Jl 

TEST 10: MANUAL INTE Kl 

TEST 10: MANUAL INTE LI 

TEST 10; MANUAL INTE Ml 

TEST 10: MANUAL INTE Nl 



TEST 10: MANUAL INTE, 

TEST 10: MANUAL INTE. 

TEST 10: MANUAL INTE. 

TEST 11: CONFIGURATE 

TEST 11: CONFIGURATE 

TEST 11: CONFIGURATE 

TEST 11: CONFIGURATE 

TEST 11: CONFIGURATE 

TEST 11: CONFIGURATE 

TEST 11: CO^IGURATE 

TEST 12: SCOPE LOOPS. 

TEST 12; SCOPE LOOPS. 

TEST 12: SCOPE LOOPS. 



TEST 12: SCOPE LOOPS 
TEST 12: SCOPE LOOPS 
SOFTWARE PARAMETER C 
SYMBOL TABLE 
SYMBOL TABLE 
SYMBOL TABLE 
SYMBOL TABLE 
SYMBOL TABLE 



..B2 
♦ ,C2 
..02 
..E2 
>.F2 
..G2 
..H2 
..12 
.,J2 
..K2 
..L2 
..M2 
..N2 



, ,B3 

, .C3 
. .03 
..E3 

..F3 
. .G3 

. ,H3 
..13 



